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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102124 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2f18605..80b9604 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90
index 84322c6..86e6916 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90
@@ -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