blob: 8a3692dd688c7929193bea1e244c015147077bfc [file] [log] [blame]
! { dg-do compile }
! PR fortran/50071
! Duplicate statement labels should not be rejected if they appear in
! different scoping units
! Contributed by Vittorio Zecca <>
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'