summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/graphite/id-23.f
blob: 74c29283ddccadc87d5f4cd197d736f5b648447a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
      SUBROUTINE CAMB(RX2,RTX,NUM)
      DIMENSION RX2(NUM,NUM),RTX(NUM,NUM)
      DO I=1,NUM
        DO J=1,I
          DO M=1,NUM
            RX2(I,J)=RX2(I,J)+RTX(M,I)
          END DO
        END DO
      END DO
      IF (RX2(I,1).LE.EIGCT2) THEN
      RTX(I,1)=4.0D+00
      END IF
      END