git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/39402 (gfortran 20090306: internal write of 0.0 with F0.3 gives **) 

2009-03-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/39402
	* gfortran.dg/fmt_f0_1.f90: New test.

From-SVN: r144719
This commit is contained in:
Jerry DeLisle 2009-03-09 04:54:50 +00:00
parent d53cb9ea60
commit 1915e66b17
2 changed files with 22 additions and 0 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 @@
2009-03-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/39402
* gfortran.dg/fmt_f0_1.f90: New test.
2009-03-08 H.J. Lu <hongjiu.lu@intel.com>
PR c++/39060

17
gcc/testsuite/gfortran.dg/fmt_f0_1.f90 Normal file
View File

@ -0,0 +1,17 @@
! { dg-do run )
! PR39304 write of 0.0 with F0.3 gives **
! Test case developed from case provided by reporter.
REAL :: x
CHARACTER(80) :: str
x = 0.0
write (str,'(f0.0)') x
if (str.ne."0.") call abort
write (str,'(f0.1)') x
if (str.ne."0.0") call abort
write (str,'(f0.2)') x
if (str.ne."0.00") call abort
write (str,'(f0.3)') x
if (str.ne."0.000") call abort
write (str,'(f0.4)') x
if (str.ne."0.0000") call abort
END