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