KJ16609/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2026-02-22 03:46:53 -05:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/32554 ([4.2 Only] Bug in P formatting)

Browse Source 
2007-07-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/32554
	* gfortran.dg/fmt_p_1.f90: New test.

From-SVN: r126457
This commit is contained in:
Jerry DeLisle
2007-07-08 02:24:37 +00:00
parent a1b5aa34a5
commit a1d01bf58c
2 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@@ -1,3 +1,8 @@
2007-07-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/32554
* gfortran.dg/fmt_p_1.f90: New test.
2007-07-07 Mark Mitchell <mark@codesourcery.com>
PR c++/32232

12
gcc/testsuite/gfortran.dg/fmt_p_1.f90 Normal file
View File

@@ -0,0 +1,12 @@
! { dg-do run }
! PR32554 Bug in P formatting
! Test case from the bug reporter
program gfcbug66
real(8) :: x = 1.0e-100_8
character(50) :: outstr
write (outstr,'(1X,2E12.3)') x, 2 * x
if (outstr.ne." 0.100E-99 0.200E-99") call abort
write (outstr,'(1X,1P,2E12.3)') x, 2 * x ! Second printed number is wrong
if (outstr.ne." 1.000-100 2.000-100") call abort
end program gfcbug66