gcc/testsuite/gfortran.dg/graphite/pr37980.f90

   1 ! { dg-options "-O2 " }
   2
   3 module INT_MODULE
   4 contains
   5   pure function spher_cartesians(in1) result(out1)
   6     integer(kind=kind(1)) :: in1
   7     intent(in) :: in1
   8     real(kind=kind(1.0d0)), dimension(0:in1,0:in1,0:in1) :: mat0
   9     mat0 = 0.0d0
  10   end function spher_cartesians
  11 end module INT_MODULE
  12 ! { dg-final { cleanup-modules "int_module" } }