diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-07-24 02:30:27 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-07-24 02:30:27 +0000 |
| commit | 4cf507fc166e4070c9eed83d1891678bf9d39331 (patch) | |
| tree | 463639e4f3420cea770f76bebc979821e2a74c8a | |
| parent | 35fd722b61b9a1603c204b0d493b2a56fd058cde (diff) | |
| download | gcc-4cf507fc166e4070c9eed83d1891678bf9d39331.zip gcc-4cf507fc166e4070c9eed83d1891678bf9d39331.tar.gz gcc-4cf507fc166e4070c9eed83d1891678bf9d39331.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90 | 10 |
2 files changed, 14 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7f855c1..2986250 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 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. 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 86e6916..22e17d1 100644 --- 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 |