! { dg-do compile } | |
! | |
! Fix for PR98016 - Used to fail with Error: Variable ‘n’ cannot appear in the | |
! expression at (1) for line 16. Workaround was to declare y to be real. | |
! | |
! Posted by Juergen Reuter <juergen.reuter@desy.de> | |
! | |
program is_it_valid | |
dimension y(3) | |
n=3 | |
y=func(1.0) | |
print *, y | |
stop | |
contains | |
function func(x) result (y) | |
dimension y(n) | |
y=x | |
end function | |
end |