3 ! Test the fix for PR79402, in which the module procedure 'fun1' picked
4 ! up a spurious symbol for the dummy 'n' in the specification expression
7 ! Contributed by Chris Coutinho <chrisbcoutinho@gmail.com>
11 module function fun1(n
) result(y
)
12 integer, intent(in
) :: n
13 real, dimension(n
) :: y
19 submodule (mod
) submod
23 y
= [(float (i
), i
= 1, n
)]