gcc/testsuite/gfortran.dg/parameter_array_section_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR29821, which was due to failure to simplify the
   3 ! array section, since the section is not constant, provoking failure
   4 ! to resolve the argument of SUM and therefore to resolve SUM itself.
   5 !
   6 ! Contributed by Harald Anlauf  <anlauf@gmx.de>
   7 !
   8 module gfcbug45
   9   implicit none
  10 contains
  11   subroutine foo
  12     real, external :: mysum
  13     integer :: i
  14     real    :: a
  15     real, parameter :: eps(2) = (/ 1, 99 /)
  16     i = 1
  17     a = sum (eps(i:i+1) * eps)
  18     print *, a
  19   end subroutine foo
  20 end module gfcbug45
  21   use gfcbug45
  22   call foo
  23 end
  24 ! { dg-final { cleanup-modules "gfcbug45" } }