Sign in
gnu
/
gcc
/
2eaa0cc45e8eae0fc4a440d28c602964bcb1014d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
move_alloc_7.f90
blob: d2bc82c7ca0fa41cac732ed1ea203bed161ca00b [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
Check
that move alloc handles different
,
type compatible
!
declared types
!
type t
end
type t
type
,
extends
(
t
)
::
t2
end
type t2
class
(
t
),
allocatable
::
x
class
(
t2
),
allocatable
::
y
allocate
(
y
)
call move_alloc
(
y
,
x
)
end