Subversion Repositories openrisc

! { 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