[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g77.f-torture / execute / large_vec.f

      parameter (nmax=165000)
      double precision x(nmax)
      end