large_vec.f
[
plain text
]
c { dg-do run }
parameter
(nmax=165000)
double precision
x(nmax)
end