2 ! PR 18197: Check that dummy functions with RESULT variable and dimension works.
5 function f(n,x) result(y)
6 integer, intent(in) :: n
7 real, dimension(:), intent(in) :: x
8 real, dimension(n) :: y
15 subroutine foo(n,funname)
16 integer, intent(in) :: n
17 real, dimension(n) :: y
18 real, dimension(2) :: x
20 function funname(n,x) result(y)
21 integer, intent(in) :: n
22 real, dimension(:), intent(in) :: x
23 real, dimension(n) :: y
27 y = funname(n, (/ 0.2, 0.3 /) )
38 ! { dg-final { cleanup-modules "innerfun outerfun" } }