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

From-SVN: r83751
This commit is contained in:
Paul Brook 2004-06-27 23:49:27 +00:00 committed by Paul Brook
parent 59d4a5007e
commit 8dcd4256ba
2 changed files with 5 additions and 0 deletions

View File

@ -1,3 +1,7 @@
2004-06-27 Paul Brook <paul@codesourcery.com>
* gfortran.fortran-torture/execute/specfics.f90: Use correct typing.
2004-06-27 Zack Weinberg <zack@codesourcery.com> 2004-06-27 Zack Weinberg <zack@codesourcery.com>
* g++.old-deja/g++.mike/p7325.C: Remove. * g++.old-deja/g++.mike/p7325.C: Remove.

View File

@ -52,6 +52,7 @@ end function
end subroutine end subroutine
subroutine test_dprod(fn) subroutine test_dprod(fn)
double precision fn
if (abs (fn (2.0, 3.0) - 6d0) .gt. 0.00001) call abort if (abs (fn (2.0, 3.0) - 6d0) .gt. 0.00001) call abort
end subroutine end subroutine