This is the mail archive of the mailing list for the GCC project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: FAIL of specifics.f90

On Sunday 27 June 2004 17:40, Steven Bosscher wrote:
> Hi,
> The test suite failure on amd64 of specifics.f90 can be
> reduced to the following smaller test case:
> subroutine test_dprod(fn)
>   if (abs (fn (2.0, 3.0) - 6d0) .gt. 0.00001) call abort
> end subroutine
> So, is the test case just wrong, or am I missing something?

The testcase is wrong. fn needs to be given double precision type. It works by 
chance on x86 because teh ABI promotest the return type anyway.
Fixed as follows:

2004-06-27  Paul Brook  <>

	* gfortran.fortran-torture/execute/specfics.f90: Use correct typing.

Index: gfortran.fortran-torture/execute/specifics.f90
file: /var/cvsroot/gcc-cvs/gcc/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90,v
retrieving revision 1.2
diff -u -p -r1.2 specifics.f90
--- gfortran.fortran-torture/execute/specifics.f90	13 May 2004 06:40:53 -0000	
+++ gfortran.fortran-torture/execute/specifics.f90	27 Jun 2004 20:50:56 -0000
@@ -52,6 +52,7 @@ end function
 end subroutine
 subroutine test_dprod(fn)
+  double precision fn
   if (abs (fn (2.0, 3.0) - 6d0) .gt. 0.00001) call abort
 end subroutine

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]