Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-4.6.0
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
data_char_2.f90
blob: 26e31a14f082b36f4ef6d1ab02dc6a6b23873acb [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=legacy"
}
!
!
Test
that getting a character
from
a
!
string
data works
.
CHARACTER
*
10
INTSTR
CHARACTER C1
DATA INTSTR
/
'0123456789'
/
C1
=
INTSTR
(
1
:
1
)
if
(
C1
.
ne
.
'0'
)
call abort
()
end