gcc/testsuite/gfortran.dg/pr57904.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2" }
   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