re PR libfortran/24685 (real(16) formatted input is broken for huge values…

re PR libfortran/24685 (real(16) formatted input is broken for huge values (gfortran.dg/default_format_2.f90))

	PR libfortran/24685

	* io/write.c (write_real): Widen the default format for real(10)
	variables output.

	* gfortran.dg/large_real_kind_form_io_2.f90: New test.

From-SVN: r110627

gcc/testsuite/ChangeLog

+2006-02-06  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR libfortran/24685
+	* gfortran.dg/large_real_kind_form_io_2.f90: New test.
+
 2006-02-05  Andrew Pinski  <pinskia@physics.uc.edu>
 
 	PR tree-opt/25251

gcc/testsuite/gfortran.dg/large_real_kind_form_io_2.f90

+! { dg-do run }
+! { dg-require-effective-target fortran_large_real }
+! PR libfortran/24685
+program large_real_kind_form_io_2
+  ! This should be 10 or 16 on systems that support kind=10 or kind=16
+  integer, parameter :: k = selected_real_kind (precision (0.0_8) + 1)
+  real(kind=k) :: a,b(2), c
+  character(len=180) :: tmp
+
+  b(:) = huge(0.0_k)
+  write (tmp, *) b
+  read (tmp, *) a, c
+  if (a /= b(1)) call abort ()
+  if (c /= b(2)) call abort ()
+
+  b(:) = -huge(0.0_k)
+  write (tmp, *) b
+  read (tmp, *) a, c
+  if (a /= b(1)) call abort ()
+  if (c /= b(2)) call abort ()
+
+  b(:) = tiny(0.0_k)
+  write (tmp, *) b
+  read (tmp, *) a, c
+  if (a /= b(1)) call abort ()
+  if (c /= b(2)) call abort ()
+
+  b(:) = -tiny(0.0_k)
+  write (tmp, *) b
+  read (tmp, *) a, c
+  if (a /= b(1)) call abort ()
+  if (c /= b(2)) call abort ()
+end program large_real_kind_form_io_2

libgfortran/ChangeLog

+2006-02-06  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR libfortran/24685
+	* io/write.c (write_real): Widen the default format for real(10)
+	variables output.
+
 2006-01-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/25835

libgfortran/io/write.c

@@ -1373,8 +1373,8 @@ write_real (st_parameter_dt *dtp, const char *source, int length)
       f.u.real.e = 3;
       break;
     case 10:
-      f.u.real.w = 24;
-      f.u.real.d = 15;
+      f.u.real.w = 28;
+      f.u.real.d = 19;
       f.u.real.e = 4;
       break;
     case 16: