42 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! OpenMP Version 5.04! 2.17.1 critical construct5! CRITICAL start and end CRITICAL directive names mismatch6integer function timer_tick_sec()7 implicit none8 integer t9 10 !$OMP CRITICAL11 t = t + 112 !$OMP END CRITICAL13 14 !$OMP CRITICAL (foo)15 t = t + 116 !$OMP END CRITICAL (foo)17 18 !$OMP CRITICAL (foo)19 t = t + 120 !ERROR: The names on CRITICAL and END CRITICAL must match21 !$OMP END CRITICAL (bar)22 23 !$OMP CRITICAL (bar)24 t = t + 125 !ERROR: The names on CRITICAL and END CRITICAL must match26 !$OMP END CRITICAL (foo)27 28 !ERROR: Either both CRITICAL and END CRITICAL should have an argument, or none of them should29 !$OMP CRITICAL (bar)30 t = t + 131 !$OMP END CRITICAL32 33 !$OMP CRITICAL34 t = t + 135 !ERROR: Either both CRITICAL and END CRITICAL should have an argument, or none of them should36 !$OMP END CRITICAL (foo)37 38 timer_tick_sec = t39 return40 41end function timer_tick_sec42