From 90523269e2d54f9f14462f85fe17764aabc6b03c Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Tue, 6 Oct 2009 03:12:21 +0000 Subject: [PATCH] 2009-10-05 Jerry DeLisle PR libgfortran/35862 * gfortran.dg/round_2.f03: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152484 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/round_2.f03 | 16 ++++++++++++++++ 2 files changed, 21 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/round_2.f03 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e2b31f38513..13fbf3d7b84 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-10-05 Jerry DeLisle + + PR libgfortran/35862 + * gfortran.dg/round_2.f03: New test. + 2009-10-05 Jakub Jelinek PR debug/41558 diff --git a/gcc/testsuite/gfortran.dg/round_2.f03 b/gcc/testsuite/gfortran.dg/round_2.f03 new file mode 100644 index 00000000000..f48ccaac64f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/round_2.f03 @@ -0,0 +1,16 @@ +! { dg-do run } +! PR35962 Implement F2003 rounding modes. +! Test case prepared by Jerry Delisle +character(64) :: line +write(line, '(RN, 4F10.3)') 0.0625_10, 0.1875_10 +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 +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 +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 +if (line.ne." 0. 2. 2. 4.") call abort +end -- 2.11.0