OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Francois-Xavier Coudert 2006-02-06 00:04:07 +01:00 committed by François-Xavier Coudert
parent 0b59f49d59
commit df6ea78456
4 changed files with 46 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

33
gcc/testsuite/gfortran.dg/large_real_kind_form_io_2.f90 Normal file
View File

@ -0,0 +1,33 @@
! { 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

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
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

4
libgfortran/io/write.c
View File

@ -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: