diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-07-18 00:07:53 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-07-18 00:07:53 +0000 |
| commit | 74792af73d103a9fd75c5ac18d634d358f13c068 (patch) | |
| tree | f172ba7a943ac65efa1b2e667c3eb0a04d48d1d7 | |
| parent | c625053b718d8c9fe3f7875ad43abcb434961e36 (diff) | |
| download | gcc-74792af73d103a9fd75c5ac18d634d358f13c068.zip gcc-74792af73d103a9fd75c5ac18d634d358f13c068.tar.gz gcc-74792af73d103a9fd75c5ac18d634d358f13c068.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.f90 | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2f18605..80b9604 100644 --- 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 --- 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 |