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