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


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

      SUBROUTINE ORDORB(IORBTP,IORBCD)
      LOGICAL MASWRK
      DIMENSION IORBTP(12,12)
      DIMENSION IORBCD(12)
      DIMENSION NSYMTP(12,8)
      IF (MASWRK) WRITE(IW) K,NORB
      DO 280 I=1,NFZV
         IORBCD(K+I) = 3
  280 CONTINUE
      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