blob: b597eb17ea22670850e9babe1ed7a188e7d23b05 [file] [log] [blame]
! 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