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

gcc/testsuite/ChangeLog

 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
         * gfortran.dg/fmt_read_bz_bn.f90: Revised test to include case
         with trailing blanks on normal formatted read.

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