1! { dg-do compile }
2! { dg-options "-O3 -fno-ipa-cp -fdump-ipa-inline" }
3
4program test
5  call test2 ()
6contains
7  subroutine test2 ()
8    type t
9      integer, allocatable :: x
10    end type t
11
12    type t2
13      class(t), allocatable :: a
14    end type t2
15
16    type(t2) :: one, two
17
18    allocate (two%a)
19    one = two
20  end subroutine test2
21end program test
22
23! { dg-final { scan-ipa-dump-not "redefined extern inline functions are not considered for inlining" "inline" } }
24! { dg-final { cleanup-ipa-dump "inline" } }
25