Re: Syntax check for IMPLICIT statement

"James Van Buskirk" <not_valid@xxxxxxxxxxx> wrote in message
news:oa-dnXRJnLb6wYjVnZ2dnUVZ_tCrnZ2d@xxxxxxxxxxxxxx

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


.