flang/test/Semantics/critical01.f90

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