"James Van Buskirk" <not_valid@[EMAIL PROTECTED]
> wrote in message
news:oa-dnXRJnLb6wYjVnZ2dnUVZ_tCrnZ2d@[EMAIL PROTECTED]
> I still haven't gotten to that one, but here is one that was hard
> to isolate:
Still haven't made it to the mythic ICE but I have another stumbling
block:
C:\gfortran\clf\startest>type bug3.f90
program bug3
use ISO_C_BINDING, only: C_INTPTR_T, C_NULL_PTR, C_NULL_FUNPTR
use ISO_C_BINDING, only: C_PTR, C_LOC
implicit none
type(C_PTR) p1
integer, target :: i1
p1 = C_LOC(i1)
write(*,'(a,z16.16)') 'p1 = ', transfer(p1,0_C_INTPTR_T)
end program bug3
C:\gfortran\clf\startest>gfortran bug3.f90 -obug3
bug3.f90:8.8:
p1 = C_LOC(i1)
1
Error: Can't convert TYPE(_gfortran_iso_c_binding_c_ptr) to TYPE(c_ptr) at
(1)
Do I just have a bad build or is everyone else seeing all this stuff?
--
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end
|
