Complier 14.0 error in pointer

Dear all,

I have the following code which works under Complier 13.1 or older version:

function getpoint(address)result(out)
implicit none
integer*8::address
type(point),target::out0
type(point),pointer::out
pointer(address,out0)
out=>out0
end function

where 'address' is assign in some other place by

address=loc(currpoint)

and currpoint is defined as

type(point),pointer::currpoint

However, when the code are compiled by compiler 14.0 (Package ID: w_fcompxe_2013_sp1.0.103), the result is wrong.

Is

pointer(address,out0)

still supported by compiler 14.0? if not, how to modify the above function to let the pointer be recovered from the address correctly?

Thanks,

Zhanghong Tang