------- 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
