program test_critical
    implicit none
    if (.true.) then
        critical
        end critical
    end if
end program test_critical
