diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-12-15 03:16:26 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-12-15 03:16:26 +0000 |
| commit | 8d3586e4e2426a2ae77c082134be67fe036c87a7 (patch) | |
| tree | c83931793147529d54140fc2dafed0063dd1a22a /gcc | |
| parent | 060eb4c9a45d624ef1e4b945ff6ec5d4bef69187 (diff) | |
| download | gcc-8d3586e4e2426a2ae77c082134be67fe036c87a7.zip gcc-8d3586e4e2426a2ae77c082134be67fe036c87a7.tar.gz gcc-8d3586e4e2426a2ae77c082134be67fe036c87a7.tar.bz2 | |
PR libfortran/pr68867
2015-12-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/pr68867
* io/write.c (set_fnode_default): For kind=16, set the decimal precision
depending on the platform binary precision, 106 or 113.
From-SVN: r231639
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/quad_2.f90 | 11 |
2 files changed, 10 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a4d593b..c2a5d8e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-12-14svn commit Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/quad_2.f90: Update test. + 2015-12-14 Steve Ellcey <sellcey@imgtec.com> * gcc.dg/tree-ssa/ssa-fre-4.c: Remove mips*-*-* target. diff --git a/gcc/testsuite/gfortran.dg/quad_2.f90 b/gcc/testsuite/gfortran.dg/quad_2.f90 index 1b3f918..f7a8a46 100644 --- a/gcc/testsuite/gfortran.dg/quad_2.f90 +++ b/gcc/testsuite/gfortran.dg/quad_2.f90 @@ -49,18 +49,19 @@ program test_qp if (str4 /= "1.41421356237309504876") call abort() case (16) - if (str1 /= " 1.00000000000000000000000000000000000") call abort() - if (str2 /= "1.00000000000000000000000000000000000") call abort() - if (digits(1.0_qp) == 113) then ! IEEE 754 binary 128 format ! e.g. libquadmath/__float128 on i686/x86_64/ia64 + if (str1 /= " 1.00000000000000000000000000000000000") call abort() + if (str2 /= "1.00000000000000000000000000000000000") call abort() if (str3 /= " 1.41421356237309504880168872420969798") call abort() if (str4 /= "1.41421356237309504880168872420969798") call abort() else if (digits(1.0_qp) == 106) then ! IBM binary 128 format - if (str3(1:37) /= " 1.41421356237309504880168872420969") call abort() - if (str4(1:34) /= "1.41421356237309504880168872420969") call abort() + if (str1 /= " 1.0000000000000000000000000000000") call abort() + if (str2 /= "1.0000000000000000000000000000000") call abort() + if (str3(1:37) /= " 1.4142135623730950488016887242097") call abort() + if (str4(1:34) /= "1.4142135623730950488016887242097") call abort() end if ! Do a libm run-time test |