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

re PR fortran/35036 (illegal E format descriptor produces wrong output)

Browse source 
2008-02-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/35036
	* gfortran.dg/fmt_zero_digits.f90: Revise test.

From-SVN: r132511
This commit is contained in:
Jerry DeLisle 2008-02-21 02:22:45 +00:00
parent 50a932e0cb
commit d5e0c0ae62
2 changed files with 27 additions and 4 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 @@
2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/35036
* gfortran.dg/fmt_zero_digits.f90: Revise test.
2008-02-20 Seongbae Park <seongbae.park@gmail.com>
* gcc.dg/Wframe-larger-than.c: New option test.

26
gcc/testsuite/gfortran.dg/fmt_zero_digits.f90
View file

@ -1,12 +1,30 @@
! { dg-do run }
! Verify that when decimal precision is zero, no error.
! Verify that when decimal precision is zero, error error given except with 1P.
! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Modified for fix to PR35036
program test
implicit none
character(20) :: astr
50 FORMAT (d20.0)
integer :: istat
50 FORMAT (1PD20.0)
astr = ""
write(astr,50) -8.0D0
if (astr.ne." -0.D+01") call abort()
if (astr.ne." -8.D+00") call abort
write(astr,50) 8.0D0
if (astr.ne." 0.D+01") call abort()
if (astr.ne." 8.D+00") call abort
write(astr, '(E15.0)', iostat=istat) 1e5
if (istat /= 5006) call abort
write(astr, '(D15.0)', iostat=istat) 1e5
if (istat /= 5006) call abort
write(astr, '(G15.0)', iostat=istat) 1e5
if (istat /= 5006) call abort
write(astr, '(2PE15.0)', iostat=istat) 1e5
if (istat /= 5006) call abort
write(astr, '(0PE15.0)', iostat=istat) 1e5
if (istat /= 5006) call abort
write(astr, '(1PE15.0)', iostat=istat) 1e5
if (istat /= 0) call abort
write(astr, '(F15.0)', iostat=istat) 1e5
if (astr.ne." 100000.") call abort
if (istat /= 0) call abort
end program test