1! { dg-do run } 2! 3! Testcase for PR fortran/65841 4! Contributed by Damian Rousson 5! 6program 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() 21end program 22