procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fmt_zero_digits.f90: New test for no error when zero decimal digits specified in format.

Browse source 
2006-04-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/fmt_zero_digits.f90: New test for no error when
	zero decimal digits specified in format.

From-SVN: r112657
This commit is contained in:
Jerry DeLisle 2006-04-04 03:04:58 +00:00
parent 5eb90a1cbc
commit c5c28809ab
2 changed files with 15 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 @@
2006-04-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/fmt_zero_digits.f90: New test for no error when
zero decimal digits specified in format.
2006-04-03 Paul Thomas <pault@gcc.gnu.org>
PR fortran/26981

10
gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 Normal file
View file

@ -0,0 +1,10 @@
! { dg-do run }
! Verify that when decimal precision is zero, no error.
! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
program test
character(20) :: astr
50 FORMAT (d20.0)
astr = ""
write(astr,50) -8.0D0
if (astr.ne." 0.D+01") call abort()
end program test