This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/36590] internal error
- From: "burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 21 Jun 2008 20:17:00 -0000
- Subject: [Bug fortran/36590] internal error
- References: <bug-36590-15125@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #4 from burnus at gcc dot gnu dot org 2008-06-21 20:16 -------
CONFIRM. Reduced test case:
MODULE MTFControlArgs
TYPE, PUBLIC :: TMTFControlArgs
Real(8) :: PolyMTFWeight (1:10)
end type TMTFControlArgs
interface Near0
elemental function Near0_dp (TestNumber) result (NumberNear0)
real (8), intent(in) :: TestNumber
logical (1) :: NumberNear0
end function Near0_dp
elemental function Near0_sp (TestNumber) result (NumberNear0)
real (4), intent(in) :: TestNumber
logical (1) :: NumberNear0
end function Near0_sp
end interface
contains
subroutine getSpc_MTFCA (This)
type (TMTFControlArgs), intent(inout) :: This
integer(1) :: i
i = count (.not. Near0 (This % PolyMTFWeight(1: 10)))
end subroutine GetSpc_MTFCA
end module MTFControlArgs
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2008-06-21 20:17:00
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36590