Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
pr45634.f90
blob: ab0c33ad32d00e53966987f37df680f09cbe0daf [
file
] [
log
] [
blame
]
SUBROUTINE RCRDRD
(
VTYP
)
CHARACTER
(
4
),
INTENT
(
OUT
)
::
VTYP
CHARACTER
(
1
),
SAVE
::
DBL
=
"D"
VTYP
=
DBL
END