llvm/flang/test/Semantics/critical05.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
program testcriticalconstruct
  integer :: status
  character(len=128) :: errormessage
  integer :: total = 0
  integer :: i

  CRITICAL
  END CRITICAL

  Testname: Critical
  End critical Testname

  stat_variable: critical (STAT=status)
  End critical stat_variable

  errmsg_variable: critical (ERRMSG=errormessage)
  End critical errmsg_variable

  critical (ERRMSG=errormessage, STAT=status)
  End critical

  critical ()
  end critical

  critical (STAT=status)
    do i = 1, this_image()
        total = total + 1
    end do
    print *, "Total is: ", total
  End critical

  critical
    10 continue
    GO TO 10
  End critical

end program testcriticalconstruct