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


1
2
3
4
5
6
7
8
9
10

! { dg-options "-O3 -ffast-math" }

      COMMON /NONEQ / UNZOR
      DO ITS = 1, NTS
        DO JATOM = 1, NAT
          IF(IEF.EQ.5.OR.IEF.EQ.8)
     *       UNZOR = UNZOR + 8
        ENDDO
      ENDDO
      END