* gfortran.fortran-torture/execute/specfics.f90: Use correct typing.
From-SVN: r83751
This commit is contained in:
parent
59d4a5007e
commit
8dcd4256ba
@ -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.
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user