| ! { dg-do run } | |
| ! | |
| ! Testcase for PR fortran/65841 | |
| ! Contributed by Damian Rousson | |
| ! | |
| program alloc_comp_deep_copy_2 | |
| type a | |
| real, allocatable :: f | |
| end type | |
| type b | |
| type(a), allocatable :: g | |
| end type | |
| type(b) c,d | |
| c%g=a(1.) | |
| d=c | |
| if (d%g%f /= 1.0) call abort() | |
| d%g%f = 2.0 | |
| if (d%g%f /= 2.0) call abort() | |
| end program |