flang/test/Semantics/critical04.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
   2 ! CHECK-NOT: Control flow escapes from CRITICAL
   3
   4 subroutine test1(a, i)
   5   integer i
   6   real a(10)
   7   critical
   8     if (a(i) < 0.0) then
   9       a(i) = 20.20
  10       goto 20
  11     end if
  12 20 a(i) = -a(i)
  13   end critical
  14 end subroutine test1
  15
  16 subroutine test2(i)
  17   integer i
  18   critical
  19     if (i) 10, 10, 20
  20 10  i = i + 1
  21 20  i = i - 1
  22   end critical
  23 end subroutine test2
  24
  25 subroutine test3(i)
  26   integer i
  27   critical
  28     goto (10, 10, 20) i
  29 10  i = i + 1
  30 20  i = i - 1
  31   end critical
  32 end subroutine test3