5 ! The program was leaking memory before due to
6 ! realloc on assignment and nested functions.
12 function filler(array
, val
)
13 real, dimension(:), intent(in
):: array
14 real, dimension(size(array
)):: filler
15 real, intent(in
):: val
26 real, dimension(:), allocatable
:: x
, y
27 integer, parameter:: N
=1000 !*1000
36 x
=filler(filler(y
, real(2*i
)), real(i
))