22 lines
327 B
Fortran
22 lines
327 B
Fortran
! { 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) STOP 1
|
|
d%g%f = 2.0
|
|
if (d%g%f /= 2.0) STOP 2
|
|
end program
|