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) 10end 11