flang/test/Semantics/critical06.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 program testcriticalconstruct
   3
   4   Start_name_only: Critical
   5   !ERROR: CRITICAL construct name required but missing
   6   End critical !C1117 in the Fortran 2018 standard
   7
   8   critical
   9   !ERROR: CRITICAL construct name unexpected
  10   end critical end_name_only !C1117 in Fortran 2018 standard
  11
  12 end program