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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2f18605274562025428821d69605b61b3e0b95c1..80b9604ecbf3f1693399fed0a1fef13b65ebfa46 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 84322c60679a6167b917e295871af8d2db14a71c..86e6916a0c40ca627c7f69a49f0297de375db7d0 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