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 7module m 8 type t 9 end type 10end module 11 12subroutine sub1 13 use m 14 class(t), pointer :: a1 15end subroutine 16 17subroutine sub2 18 use m 19 class(t), pointer :: a2 20end subroutine 21 22! { dg-final { cleanup-modules "m" } } 23