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