gcc/testsuite/gfortran.dg/vect/pr46213.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-O -fno-tree-loop-ivcanon -fno-tree-ccp -fno-tree-ch -finline-small-functions" }
   3
   4 module foo
   5   INTEGER, PARAMETER :: ONE = 1
   6 end module foo
   7 program test
   8   use foo
   9   integer :: a(ONE), b(ONE), c(ONE), d(ONE)
  10   interface
  11     function h_ext()
  12     end function h_ext
  13   end interface
  14   c = j()
  15   if (any (c .ne. check)) call myabort (7)
  16 contains
  17   function j()
  18      integer :: j(ONE), cc(ONE)
  19      j = cc - j
  20   end function j
  21   function get_d()
  22   end function get_d
  23 end program test
  24