diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-10-07 01:24:27 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-10-07 01:24:27 +0000 |
| commit | e4f512b710b5be1435c26bcca4030a65dada5a4b (patch) | |
| tree | 376f3c08aa744978a51028884a5467661e4c2a5d | |
| parent | 5edc1f14fa4e84d2c40d1253d4cedd3d0e312194 (diff) | |
| download | gcc-e4f512b710b5be1435c26bcca4030a65dada5a4b.zip gcc-e4f512b710b5be1435c26bcca4030a65dada5a4b.tar.gz gcc-e4f512b710b5be1435c26bcca4030a65dada5a4b.tar.bz2 | |
re PR testsuite/41612 (FAIL: gfortran.dg/round_2.f03)
2009-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/41612
* gfortran.dg/round_2.f03: Fix test to work on platforms that do not
have kind=10 reals.
From-SVN: r152510
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/round_2.f03 | 9 |
2 files changed, 11 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dd18805..aa3886c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + 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 <jason@redhat.com> * 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 f48ccaa..aa04bbe 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 <jvdelisle@gcc.gnu.org> +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 |