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

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