From: Jerry DeLisle Date: Mon, 18 Jul 2005 00:07:53 +0000 (+0000) Subject: nan_inf_fmt.f90: Change case of field width of 8 to +Inf and -Inf. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=74792af73d103a9fd75c5ac18d634d358f13c068;p=gcc.git nan_inf_fmt.f90: Change case of field width of 8 to +Inf and -Inf. 2005-07-17 Jerry DeLisle * 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 2f186052745..80b9604ecbf 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2005-07-17 Jerry DeLisle + * gfortran.fortran-torture/execute/nan_inf_fmt.f90: Change case of field + width of 8 to +Inf and -Inf. + 2005-07-17 Mark Mitchell 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 84322c60679..86e6916a0c4 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