1! { dg-do compile }
2! { dg-additional-options "-O -fno-tree-loop-ivcanon -fno-tree-ccp -fno-tree-ch -finline-small-functions" }
3
4module foo
5  INTEGER, PARAMETER :: ONE = 1
6end module foo
7program 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)
16contains
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
23end program test
24
25