gcc/testsuite/gfortran.dg/graphite/id-14.f

   1       SUBROUTINE ORDORB(IORBTP,IORBCD)
   2       LOGICAL MASWRK
   3       DIMENSION IORBTP(12,12)
   4       DIMENSION IORBCD(12)
   5       DIMENSION NSYMTP(12,8)
   6       IF (MASWRK) WRITE(IW) K,NORB
   7       DO 280 I=1,NFZV
   8          IORBCD(K+I) = 3
   9   280 CONTINUE
  10       DO 420 I = 1,NTPS
  11          DO 400 J = 1,8
  12             NSYMTP(I,J) = 0
  13   400    CONTINUE
  14          DO 410 J=1,NORB
  15             IORBTP(I,J) = 0
  16   410    CONTINUE
  17   420 CONTINUE
  18       CALL RDRSYM(ICODE,NSYMTP,NSYM)
  19  9055 FORMAT(I5)
  20       END