Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr103691.f90
blob: f1f551e20fa1f546672ea84110b7dc91830e33c8 [
file
] [
log
] [
blame
]
!
PR fortran
/
103691
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -g"
}
program pr103691
real
,
parameter
::
a
(
0
)
=
2.0
real
,
allocatable
::
b
(:)
allocate
(
b
,
mold
=
a
)
end