large_vec.f   [plain text]

c { dg-do run }
      parameter (nmax=165000)
      double precision x(nmax)
      end