gcc/testsuite/gfortran.dg/pr20257.f90

   1 ! { dg-do run }
   2 ! { dg-skip-if "Too big for local store" { spu-*-* } { "*" } { "" } }
   3   integer,parameter :: n = 10000
   4   real(8) array(10000)
   5
   6   array(:) = 0
   7   open (10, status='scratch')
   8   write (10,*) array
   9   close (10)
  10 end