OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/16289 (Test intrinsic_nearest.f90 not portable?) 

2004-06-30  David Billinghurst (David.Billinghurst@riotinto.com)

	PR fortran/16289
	* gfortran.fortran-torture/execute/intrinsic_nearest.f90
	Use tiny() intrinsic to find smallest non-negative real

From-SVN: r83904
This commit is contained in:
David Billinghurst 2004-06-30 11:50:45 +00:00
parent 0984ba100b
commit 807a7d143d
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2004-06-30 David Billinghurst (David.Billinghurst@riotinto.com)
PR fortran/16289
* gfortran.fortran-torture/execute/intrinsic_nearest.f90
Use tiny() intrinsic to find smallest non-negative real
2004-06-30 Jakub Jelinek <jakub@redhat.com>
* gcc.dg/compat/struct-by-value-22_main.c: New test.

5
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90
View File

@ -2,11 +2,10 @@
program test_nearest
real s, r, x, y, inf, max, min
integer i, infi, maxi, mini
integer i, infi, maxi
equivalence (s,i)
equivalence (inf,infi)
equivalence (max,maxi)
equivalence (min,mini)
r = 2.0
s = 3.0
@ -28,7 +27,7 @@ program test_nearest
infi = z'7f800000'
maxi = z'7f7fffff'
mini = 1
min = tiny(1.0)
call test_up(max, inf)
call test_up(-inf, -max)