gcc/testsuite/gfortran.dg/g77/9263.f

   1 C { dg-do compile }
   2       PARAMETER (Q=1)
   3       PARAMETER (P=10)
   4       INTEGER C(10),D(10),E(10),F(10)
   5 C     TERMINAL NOT INTEGER
   6       DATA (C(I),I=1,P)    /10*10/ ! { dg-error "End expression in DO loop" "" }
   7 C     START NOT INTEGER
   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" "" }
  11       END