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