| ! RUN: %python %S/test_errors.py %s %flang -fopenmp |
| |
| ! OpenMP Version 5.0 |
| ! 2.17.1 critical construct |
| ! CRITICAL start and end CRITICAL directive names mismatch |
| integer function timer_tick_sec() |
| implicit none |
| integer t |
| |
| !$OMP CRITICAL |
| t = t + 1 |
| !$OMP END CRITICAL |
| |
| !$OMP CRITICAL (foo) |
| t = t + 1 |
| !$OMP END CRITICAL (foo) |
| |
| !$OMP CRITICAL (foo) |
| t = t + 1 |
| !ERROR: CRITICAL directive names do not match |
| !$OMP END CRITICAL (bar) |
| |
| !$OMP CRITICAL (bar) |
| t = t + 1 |
| !ERROR: CRITICAL directive names do not match |
| !$OMP END CRITICAL (foo) |
| |
| !ERROR: CRITICAL directive names do not match |
| !$OMP CRITICAL (bar) |
| t = t + 1 |
| !$OMP END CRITICAL |
| |
| !$OMP CRITICAL |
| t = t + 1 |
| !ERROR: CRITICAL directive names do not match |
| !$OMP END CRITICAL (foo) |
| |
| timer_tick_sec = t |
| return |
| |
| end function timer_tick_sec |