summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/graphite/id-14.f
blob: cdc3d101c9528f64dc0862ffaef9694294055167 (plain)
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