1! Tests implemented for this standard
2! 11.1.4 - 4 It is permissible to branch to and end-block-stmt only withinh its
3!            Block Construct
4
5! RUN: not %f18 %s 2>&1 | FileCheck %s
6! CHECK: Label '20' is not in scope
7
8subroutine s1
9  block
10    goto (10) 1
1110  end block
12
13  block
1420  end block
15end
16
17subroutine s2
18  block
19    goto (20) 1
2010  end block
21
22  block
2320  end block
24end
25
26subroutine s3
27  block
28    block
29      goto (10) 1
3010  end block
3120  end block
32end
33
34subroutine s4
35  block
36    block
37      goto (20) 1
3810  end block
3920  end block
40end
41