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