39 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program testcriticalconstruct3 integer :: status4 character(len=128) :: errormessage5 integer :: total = 06 integer :: i7 8 CRITICAL9 END CRITICAL10 11 Testname: Critical12 End critical Testname13 14 stat_variable: critical (STAT=status)15 End critical stat_variable16 17 errmsg_variable: critical (ERRMSG=errormessage)18 End critical errmsg_variable19 20 critical (ERRMSG=errormessage, STAT=status)21 End critical22 23 critical ()24 end critical25 26 critical (STAT=status)27 do i = 1, this_image()28 total = total + 129 end do30 print *, "Total is: ", total31 End critical32 33 critical34 10 continue35 GO TO 1036 End critical37 38end program testcriticalconstruct39