Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
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