Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-3.3.6
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
noncompile
/
9263.f
blob: e68b3e0a65fffad771b183d1f129c8b3d2031c6d [
file
] [
log
] [
blame
]
PARAMETER
(
Q
=
1
)
PARAMETER
(
P
=
10
)
INTEGER C
(
10
),
D
(
10
),
E
(
10
),
F
(
10
)
DATA
(
C
(
I
),
I
=
1
,
P
)
/
10
*
10
/
!
TERMINAL NOT INTEGER
DATA
(
D
(
I
),
I
=
Q
,
10
)
/
10
*
10
/
!
START NOT INTEGER
DATA
(
E
(
I
),
I
=
1
,
10
,
Q
)
/
10
*
10
/
!
INCREMENT NOT INTEGER
END