mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 00:31:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/35862 ([F2003] Implement new rounding modes for run time)

Browse Source 
2009-10-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/35862
	* gfortran.dg/round_2.f03: New test.

From-SVN: r152484
This commit is contained in:
Jerry DeLisle 2009-10-06 03:12:21 +00:00
parent 0e8fc1857d
commit 25b86498b5
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2009-10-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/35862
* gfortran.dg/round_2.f03: New test.
2009-10-05 Jakub Jelinek <jakub@redhat.com>
PR debug/41558

16
gcc/testsuite/gfortran.dg/round_2.f03 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do run }
! PR35962 Implement F2003 rounding modes.
! Test case prepared by Jerry Delisle <jvdelisle@gcc.gnu.org>
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