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