gcc/testsuite/gfortran.dg/class_54.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 53718: [4.7/4.8 regression] [OOP] gfortran generates asm label twice in the same output file
   4 !
   5 ! Contributed by Adrian Prantl <adrian@llnl.gov>
   6
   7 module m
   8   type t
   9   end type
  10 end module
  11
  12 subroutine sub1
  13   use m
  14   class(t), pointer :: a1
  15 end subroutine
  16
  17 subroutine sub2
  18   use m
  19   class(t), pointer :: a2
  20 end subroutine
  21
  22 ! { dg-final { cleanup-modules "m" } }