repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
noncompile
/
9263.f
blob
e68b3e0a65fffad771b183d1f129c8b3d2031c6d
1
PARAMETER
(
Q
=
1
)
2
PARAMETER
(
P
=
10
)
3
INTEGER
C
(
10
),
D
(
10
),
E
(
10
),
F
(
10
)
4
DATA
(
C
(
I
),
I
=
1
,
P
) /
10
*
10
/ !
TERMINAL NOT
INTEGER
5
DATA
(
D
(
I
),
I
=
Q
,
10
) /
10
*
10
/ !
START NOT
INTEGER
6
DATA
(
E
(
I
),
I
=
1
,
10
,
Q
) /
10
*
10
/ !
INCREMENT NOT
INTEGER
7
END