Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
realloc_on_assign_8.f90
blob: 4f7d28895b5bc262689690ffdad96cacb2423829 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
51448
!
!
Contribued
by
Fran
รง
ois
Willot
!
PROGRAM MAIN
IMPLICIT NONE
TYPE mytype
REAL b
(
2
)
END
TYPE mytype
TYPE
(
mytype
)
a
DOUBLE PRECISION
,
ALLOCATABLE
::
x
(:)
ALLOCATE
(
x
(
2
))
a
%
b
=
0.0E0
x
=
a
%
b
END