2 ! Tests the fix for PR30283 in which the type of the result
3 ! of bar was getting lost
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
12 integer, intent(in
) :: n
13 integer, dimension(bar (n
)) :: y
14 ! Array bound is specification expression, which is allowed (F2003, sect.7.1.6)
17 pure
function bar (n
) result (l
)
18 integer, intent(in
) :: n