13 lines
343 B
Fortran
13 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
|