1! { dg-do compile }
2!
3! PR fortran/52059
4!
5!
6
7subroutine baz
8  real(kind=8) :: a(99), b
9  interface bar
10    function bar (x, y)
11      integer, intent(in) :: x, y
12      real(kind=8), dimension((y-x)) :: bar
13    end function bar
14  end interface
15  b = 1.0_8
16  a = foo (bar(0,35) / dble(34), b)
17contains
18  elemental real(kind=8) function foo(x, y)
19    real(kind=8), intent(in) :: x, y
20    foo = 1
21  end function foo
22end subroutine baz
23