critical1.f90

program critical1
implicit none
integer :: joblist[*], job
integer :: a, b
integer :: IntegerSample
character(50) :: Sample
if (this_image() == 1) read(*,*) joblist
sync all
do
    critical
      job = joblist[1]
      joblist[1] = job - 1
    end critical

! >>>>>>>> Syntax check(AST) >>>>>>>>
    critical()
        IntegerSample = 0
    end critical
    critical(stat = IntegerSample)
        Sample = "Error message"
    end critical
    critical(errmsg = Sample)
        Sample = "Error message"
    end critical
! <<<<<<<< Syntax check(AST) <<<<<<<<

    if (job > 0) then
        b = a**2 + b**2
    else
       exit
    end if
end do
sync all
end program