Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.2.1
/
gcc
/
testsuite
/
gfortran.dg
/
data_char_2.f90
blob: 3e021b165f796581cf78d70a77b834640e4df128 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
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