42 lines
858 B
Fortran
42 lines
858 B
Fortran
|
! 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
|