12 lines
343 B
Fortran
12 lines
343 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
program testcriticalconstruct
|
|
|
|
Start_name_only: Critical
|
|
!ERROR: CRITICAL construct name required but missing
|
|
End critical !C1117 in the Fortran 2018 standard
|
|
|
|
critical
|
|
!ERROR: CRITICAL construct name unexpected
|
|
end critical end_name_only !C1117 in Fortran 2018 standard
|
|
|
|
end program
|