blob: 8a3692dd688c7929193bea1e244c015147077bfc (
plain)
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
|
! { dg-do compile }
!
! PR fortran/50071
! Duplicate statement labels should not be rejected if they appear in
! different scoping units
!
! Contributed by Vittorio Zecca <zeccav@gmail.com>
c gfortran complains about duplicate statement labels
c this is a legal program because types have their own scoping units
c and you may have same labels in different scoping units,
c as you may have same identifiers inside, like G.
type t1
1 integer G
end type
type t2
1 integer G
end type
c this is legal
goto 1
print *,'bad'
1 continue
print *,'good'
end
|
