id-24.f « graphite « gfortran.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/graphite/id-24.f

blob: 20c40ee06e28c08212655882f20b83ed1900f98e (plain)

      SUBROUTINE TFTRAB(A,NA)
      DIMENSION A(NA,NA)
      DO 160 K=1,NA
         DUM = DUM + A(K,I)
 160  CONTINUE
      DO 180 I=1,NA
         A(I,J) = DUM
 180  CONTINUE
      END