flang/test/Semantics/critical01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 !C1117
   3
   4 subroutine test1(a, i)
   5   integer i
   6   real a(10)
   7   one: critical
   8     if (a(i) < 0.0) then
   9       a(i) = 20.20
  10     end if
  11   !ERROR: CRITICAL construct name mismatch
  12   end critical two
  13 end subroutine test1
  14
  15 subroutine test2(a, i)
  16   integer i
  17   real a(10)
  18   critical
  19     if (a(i) < 0.0) then
  20       a(i) = 20.20
  21     end if
  22   !ERROR: CRITICAL construct name unexpected
  23   end critical two
  24 end subroutine test2