Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
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