gcc/testsuite/gfortran.dg/pr57987.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -fno-ipa-cp -fdump-ipa-inline" }
   3
   4 program test
   5   call test2 ()
   6 contains
   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
  21 end program test
  22
  23 ! { dg-final { scan-ipa-dump-not "redefined extern inline functions are not considered for inlining" "inline" } }