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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

      SUBROUTINE ORDORB(IORBTP)
      LOGICAL MASWRK
      DIMENSION IORBTP(12,12)
      DIMENSION NSYMTP(12,8)
      IF (MASWRK) WRITE(IW) K,NORB
      DO 420 I = 1,NTPS
         DO 400 J = 1,8
            NSYMTP(I,J) = 0
  400    CONTINUE
         DO 410 J=1,NORB
            IORBTP(I,J) = 0
  410    CONTINUE
  420 CONTINUE
      CALL RDRSYM(ICODE,NSYMTP,NSYM)
 9055 FORMAT(I5)
      END