From: Jerry DeLisle Date: Wed, 7 Oct 2009 01:24:27 +0000 (+0000) Subject: re PR testsuite/41612 (FAIL: gfortran.dg/round_2.f03) X-Git-Tag: releases/gcc-4.5.0~3075 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e4f512b710b5be1435c26bcca4030a65dada5a4b;p=thirdparty%2Fgcc.git re PR testsuite/41612 (FAIL: gfortran.dg/round_2.f03) 2009-10-06 Jerry DeLisle PR libgfortran/41612 * gfortran.dg/round_2.f03: Fix test to work on platforms that do not have kind=10 reals. From-SVN: r152510 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dd18805a6cc6..aa3886c92c54 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-10-06 Jerry DeLisle + + PR libgfortran/41612 + * gfortran.dg/round_2.f03: Fix test to work on platforms that do not + have kind=10 reals. + 2009-10-06 Jason Merrill * g++.dg/cpp0x/lambda/lambda-init.C: New. diff --git a/gcc/testsuite/gfortran.dg/round_2.f03 b/gcc/testsuite/gfortran.dg/round_2.f03 index f48ccaac64fa..aa04bbe32608 100644 --- a/gcc/testsuite/gfortran.dg/round_2.f03 +++ b/gcc/testsuite/gfortran.dg/round_2.f03 @@ -1,16 +1,17 @@ ! { dg-do run } ! PR35962 Implement F2003 rounding modes. ! Test case prepared by Jerry Delisle +integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1) character(64) :: line -write(line, '(RN, 4F10.3)') 0.0625_10, 0.1875_10 +write(line, '(RN, 4F10.3)') 0.0625_k, 0.1875_k if (line.ne." 0.062 0.188") call abort -write(line, '(RN, 4F10.2)') 0.125_10, 0.375_10, 1.125_10, 1.375_10 +write(line, '(RN, 4F10.2)') 0.125_k, 0.375_k, 1.125_k, 1.375_k if (line.ne." 0.12 0.38 1.12 1.38") call abort -write(line, '(RN, 4F10.1)') 0.25_10, 0.75_10, 1.25_10, 1.75_10 +write(line, '(RN, 4F10.1)') 0.25_k, 0.75_k, 1.25_k, 1.75_k if (line.ne." 0.2 0.8 1.2 1.8") call abort -write(line, '(RN, 4F10.0)') 0.5_10, 1.5_10, 2.5_10, 3.5_10 +write(line, '(RN, 4F10.0)') 0.5_k, 1.5_k, 2.5_k, 3.5_k if (line.ne." 0. 2. 2. 4.") call abort end