gcc/testsuite/gfortran.dg/alloc_comp_deep_copy_2.f03

   1 ! { dg-do run }
   2 !
   3 ! Testcase for PR fortran/65841
   4 ! Contributed by Damian Rousson
   5 !
   6 program alloc_comp_deep_copy_2
   7   type a
   8     real, allocatable :: f
   9   end type
  10   type b
  11     type(a), allocatable :: g
  12   end type
  13
  14   type(b) c,d
  15
  16   c%g=a(1.)
  17   d=c
  18   if (d%g%f /= 1.0) call abort()
  19   d%g%f = 2.0
  20   if (d%g%f /= 2.0) call abort()
  21 end program