gcc/testsuite/gfortran.dg/inline_sum_5.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/57798
   4 ! The call to sum used to be inlined into a loop with an uninitialized bound
   5 !
   6 ! Original testcase by Stephan Kramer <stephan.kramer@imperial.ac.uk>
   7
   8 program test
   9   implicit none
  10
  11   call sub(2, 11)
  12
  13   contains
  14
  15     function func(m, n)
  16       integer, intent(in):: m,n
  17       real, dimension(m, n):: func
  18
  19       func = 1.0
  20
  21     end function func
  22
  23     subroutine sub(m, n)
  24       integer, intent(in):: m, n
  25       real, dimension(m,n):: y
  26
  27       y = 1.0
  28       if (any(sum(y*func(m,n), dim=1) /= m)) call abort
  29
  30     end subroutine sub
  31
  32 end program test
  33