label14.f90
549 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
! Tests implemented for this standard
! 11.1.4 - 4 It is permissible to branch to and end-block-stmt only withinh its
! Block Construct
! RUN: not %f18 %s 2>&1 | FileCheck %s
! CHECK: Label '20' is not in scope
subroutine s1
block
goto (10) 1
10 end block
block
20 end block
end
subroutine s2
block
goto (20) 1
10 end block
block
20 end block
end
subroutine s3
block
block
goto (10) 1
10 end block
20 end block
end
subroutine s4
block
block
goto (20) 1
10 end block
20 end block
end