4 INTEGER C
(10),D
(10),E
(10),F
(10)
6 DATA
(C
(I
),I
=1,P
) /10*10/ ! { dg
-error
"End expression in DO loop" "" }
8 DATA
(D
(I
),I
=Q
,10) /10*10/ ! { dg
-error
"Start expression in DO loop" "" }
9 C INCREMENT NOT INTEGER
10 DATA
(E
(I
),I
=1,10,Q
) /10*10/ ! { dg
-error
"Step expression in DO loop" "" }