flang/test/Semantics/label14.f90

   1 ! Tests implemented for this standard
   2 ! 11.1.4 - 4 It is permissible to branch to an end-block-stmt only within its
   3 !            Block Construct
   4
   5 ! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
   6 ! CHECK: Label '20' is in a construct that prevents its use as a branch target here
   7
   8 subroutine s1
   9   block
  10     goto (10) 1
  11 10  end block
  12
  13   block
  14 20  end block
  15 end
  16
  17 subroutine s2
  18   block
  19     goto (20) 1
  20 10  end block
  21
  22   block
  23 20  end block
  24 end
  25
  26 subroutine s3
  27   block
  28     block
  29       goto (10) 1
  30 10  end block
  31 20  end block
  32 end
  33
  34 subroutine s4
  35   block
  36     block
  37       goto (20) 1
  38 10  end block
  39 20  end block
  40 end