reflect: canonicalize types returned by StructOf() and friends

[official-gcc.git] / gcc / testsuite / gfortran.dg / graphite / pr82449.f

! { dg-do compile }
! { dg-options "-O2 -floop-nest-optimize -std=legacy" }

      SUBROUTINE JDFIDX(MKL,KGSH)
      DIMENSION MKL(6,6)
      NKL=0
  400 DO 40 KG = 1,KGSH
      DO 40 LG = 1,KG
      NKL = NKL + 1
   40 MKL(LG,KG) = NKL
      END