1! { dg-do compile } 2! 3! PR fortran/50071 4! Duplicate statement labels should not be rejected if they appear in 5! different scoping units 6! 7! Contributed by Vittorio Zecca <zeccav@gmail.com> 8 9c gfortran complains about duplicate statement labels 10c this is a legal program because types have their own scoping units 11c and you may have same labels in different scoping units, 12c as you may have same identifiers inside, like G. 13 type t1 141 integer G 15 end type 16 type t2 171 integer G 18 end type 19c this is legal 20 goto 1 21 print *,'bad' 221 continue 23 print *,'good' 24 end 25 26