* open.c (new_unit): set record length to max_offset rather than
using a hard-coded limit (which was too low).
* write_big_array.f90: New test.
From-SVN: r96573
2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+ PR libfortran/20257
+ * pr20257.f90: New test.
+
+2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
PR libfortran/20480
* pr20480.f90: New test.
--- /dev/null
+! { dg-do run }
+ integer,parameter :: n = 10000
+ real(8) array(10000)
+
+ array(:) = 0
+ open (10, status='scratch')
+ write (10,*) array
+ close (10)
+end
2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+ PR libfortran/20257
+ * open.c (new_unit): set record length to max_offset rather than
+ using a hard-coded limit (which was too low).
+
+2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
PR libfortran/20480
* write.c (output_float): special check when writing 0.0 with
EN and ES formats.
/* Unspecified recl ends up with a processor dependent value. */
- u->recl = (ioparm.recl_in != 0) ? ioparm.recl_in : DEFAULT_RECL;
+ u->recl = (ioparm.recl_in != 0) ? ioparm.recl_in : g.max_offset;
u->last_record = 0;
u->current_record = 0;