hi,
when i try to build this exe under ftn64, i get the following errors.
The following symbols were not defined:
__record_program_storage __ALLOCATE$
the link script is:
lo poitest.obj file
and the source code is:
!ftn95$free
program poitest
integer, pointer :: ival2, ival1
integer(kind=7) :: iaddr1, iaddr2
character*40, pointer :: c40, c41
interface
subroutine ipoint(ival,iadd)
integer(kind=7) :: iadd
integer, pointer :: ival
end subroutine
subroutine spoint(sval,iadd)
integer(kind=7) :: iadd
character*(*), pointer :: sval
end subroutine
end interface
allocate (c40, c41, ival1, ival2)
c40 = 'string'
c41 = ' '
iaddr1 = loc(c40)
ival1 = 7
ival2 = 0
iaddr2 = loc(ival1)
call spoint (c41,iaddr1)
call ipoint (ival2,iaddr2)
write(*,*) ival2, ' ', c41
end
subroutine ipoint (ival,iadd)
integer, pointer :: ival
integer(kind=7) :: iadd
jj=2
loc(ival) = IADD
end
subroutine spoint (sval,iadd)
character*(*), pointer :: sval
integer(kind=7) :: iadd
jj=2
LOC(SVAL) = iadd
end
what am i missing?
K