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