nan_inf_fmt.f90: Revise test to include case of field width of zero.

2005-07-23  Jerry DeLisle  <jvdelisle@verizon.net>

        * gfortran.fortran-torture/execute/nan_inf_fmt.f90: Revise test to
        include case of field width of zero.

From-SVN: r102325

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7f855c12e9610ec8bef094f127655e7b8811db5b..2986250df24b29fdd1929150e25af1d6c753ff78 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-07-23  Jerry DeLisle  <jvdelisle@verizon.net>
+
+        * gfortran.fortran-torture/execute/nan_inf_fmt.f90: Revise test to
+        include case of field width of zero. 
+
 2005-07-23  Jerry DeLisle  <jvdelisle@verizon.net>
 
         PR libgfortran/21875

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 86e6916a0c40ca627c7f69a49f0297de375db7d0..22e17d12eb26520c2b04536c0592f4b136f1cc72 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90
@@ -12,6 +12,14 @@
        neg_inf = -1.0/zero
        nan = zero/zero
 
+! check a field width = 0
+       fmt = '(F0.0)'
+       write(l,fmt=fmt)pos_inf
+       if (l.ne.'+Inf') call abort
+       write(l,fmt=fmt)neg_inf
+       if (l.ne.'-Inf') call abort
+       write(l,fmt=fmt)nan
+       if (l.ne.' NaN') call abort
 
 ! check a field width < 3
        fmt = '(F2.0)'
@@ -27,7 +35,7 @@
        write(l,fmt=fmt)pos_inf
        if (l.ne.'Inf') call abort
        write(l,fmt=fmt)neg_inf
-       if (l.ne.'Inf') call abort
+       if (l.ne.'***') call abort
        write(l,fmt=fmt)nan
        if (l.ne.'NaN') call abort