Sign in
llvm
/
llvm-archive
/
67ca873b99b7e631820d261833301c41ad8006b1
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
data_1.f90
blob: e3d65efc520d0b1b562d43e7a2f6f2c4da63ae96 [
file
] [
log
] [
blame
]
!
this
tests the fix
for
PR
13826
TYPE a
REAL x
END
TYPE
TYPE
(
a
)
::
y
DATA y
/
a
(
1.
)/
!
used to give an error about non
-
PARAMETER
END
!
this
tests the fix
for
PR
13940
SUBROUTINE a
DATA i
/
x
'f95f95f9'
/
END