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

nan_inf_fmt.f90: Change case of field width of 8 to +Inf and -Inf. 

2005-07-17  Jerry DeLisle  <jvdelisle@verizon.net>
    * gfortran.fortran-torture/execute/nan_inf_fmt.f90: Change case of field
    width of 8 to +Inf and -Inf.

From-SVN: r102124
This commit is contained in:
Jerry DeLisle 2005-07-18 00:07:53 +00:00 committed by Jerry DeLisle
parent c625053b71
commit 74792af73d
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2005-07-17 Jerry DeLisle <jvdelisle@verizon.net>
* gfortran.fortran-torture/execute/nan_inf_fmt.f90: Change case of field
width of 8 to +Inf and -Inf.
2005-07-17 Mark Mitchell <mark@codesourcery.com>
PR c++/22139

4
gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90
View File

@ -52,9 +52,9 @@
! check a field width = 8
fmt = '(F8.0)'
write(l,fmt=fmt)pos_inf
if (l.ne.'Infinity') call abort
if (l.ne.' +Inf') call abort
write(l,fmt=fmt)neg_inf
if (l.ne.'Infinity') call abort
if (l.ne.' -Inf') call abort
write(l,fmt=fmt)nan
if (l.ne.' NaN') call abort