This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
bug fc005
- From: Walt Brainerd <walt at fortran dot com>
- To: Gfortran <fortran at gcc dot gnu dot org>
- Date: Sun, 27 Mar 2005 13:34:06 -0700
- Subject: bug fc005
--
Walt Brainerd +1-877-355-6640 (voice & fax)
The Fortran Company +1-520-760-1397 (outside USA)
6025 N. Wilmot Road walt@fortran.com
Tucson, AZ 85750 USA http://www.fortran.com
module check_mod
! Submitted by Walt Brainerd, The Fortran Company
! GNU Fortran 95 (GCC 4.1.0 20050322 (experimental))
! Windows XP
! In file fc005.f95:23
!
!if (.not. close(rx, rr)) then
! 1
!Error: Symbol 'close' at (1) has no IMPLICIT type
implicit none
interface close
module procedure close_d
end interface
contains
subroutine cds (rx)
real(kind(0.0d0)) rx, rr
if (.not. close(rx, rr)) then
end if
end subroutine cds
function close_d (x, y)
real (kind(0.0d0)) x, y
logical close_d
close_d = abs (x-y) < 100.0*spacing(x)
end function close_d
end module check_mod