[Bug fortran/16289] New: Test intrinsic_nearest.f90 not portable?

[Bug fortran/16289] New: Test intrinsic_nearest.f90 not portable?

[billingd at gcc dot gnu dot org]

test execute/intrinsic_nearest.f90 is failing on irix
Reduced test case is:

program test_nearest
  real min
  integer mini
  equivalence (min,mini)
  mini = 1
  call test_up(0, min)
end

subroutine test_up(s, e)
  real s, e, x
  integer xi
  equivalence (x,xi)
  x = nearest(s, 1.0)
  if (x .ne. e) then
    write(6,*) 's= ', s
    write(6,*) 'e= ', e
    write(6,*) 'x= ', x
    write(6,*) 'xi= ', xi   
    call abort()
  end if
end

and output from this is 

 s=    0.000000    
 e=    0.000000    
 x=   1.1754943E-38    
 xi=      8388608


Looks to me like the representation of min using the equivalence
is wrong for irix, and therefore the test is not portable.

Using the tiny() intrinsic works for me.  I will submit a patch.

-- 
           Summary: Test intrinsic_nearest.f90 not portable?
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: billingd at gcc dot gnu dot org
        ReportedBy: billingd at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: mips-sgi-irix6.5
  GCC host triplet: mips-sgi-irix6.5
GCC target triplet: mips-sgi-irix6.5


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16289

[Bug fortran/16289] Test intrinsic_nearest.f90 not portable?

[billingd at gcc dot gnu dot org]

------- Additional Comments From billingd at gcc dot gnu dot org  2004-06-30 03:23 -------
Patch http://gcc.gnu.org/ml/gcc-patches/2004-06/msg02563.html

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16289

[Bug fortran/16289] Test intrinsic_nearest.f90 not portable?

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-06-30 11:50 -------
Subject: Bug 16289

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	billingd@gcc.gnu.org	2004-06-30 11:50:45

Modified files:
	gcc/testsuite  : ChangeLog 
	gcc/testsuite/gfortran.fortran-torture/execute: 
	                                                intrinsic_nearest.f90 

Log message:
	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

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.3921&r2=1.3922
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90.diff?cvsroot=gcc&r1=1.2&r2=1.3



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16289

[Bug fortran/16289] Test intrinsic_nearest.f90 not portable?

[billingd at gcc dot gnu dot org]

------- Additional Comments From billingd at gcc dot gnu dot org  2004-06-30 12:25 -------
.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16289

[Bug fortran/16289] Test intrinsic_nearest.f90 not portable?

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |3.5.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16289