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