Sign in
llvm
/
llvm-archive
/
3698204cb8af2c80b326ae84c9a9e6a4bccbdedc
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
data_1.f90
blob: b283909931d161200872ab8ef62ebbddd08a56f7 [
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
/
z
'f95f95'
/
END