Lawrence =?iso-8859-13?q?D=FFOliveiro?= <ldo@nz.invalid> wrote:Anything is possible in Fortran 77.Could it just possibly be, that the design and implementation of PHP"We use Fortran because you can't trust engineers with pointers."
are so crappy, that nobody can actually be sure it really *is*
memory-safe ... ?
-- Manny Salas (pre-Fortran-90)
program dyn
integer*4 stat, b1, b2
integer*4 id
common /vmz/id
integer*4 basi(2)
real*8 basr(1)
equivalence (basi,basr)
common /bas/basi
integer*4 lib$create_vm_zone
integer*4 alloci, allocr
stat = lib$create_vm_zone(id,,,,,100000)
if(iand(stat,1).ne.1) write(*,*) stat
call test1(10, basi(alloci(10)))
call test2(10, basr(allocr(10)))
end
c
integer*4 function alloci(siz)
integer*4 siz
integer*4 stat, p
integer*4 id
common /vmz/id
integer*4 basi(2)
real*8 basr(1)
equivalence (basi,basr)
common /bas/basi
integer*4 lib$get_vm
stat = lib$get_vm(4 * siz, p, id)
if(iand(stat,1).ne.1) write(*,*) stat
alloci = (p - %loc(basi)) / 4 + 1
return
end
c
integer*4 function allocr(siz)
integer*4 siz
integer*4 stat, p
integer*4 id
common /vmz/id
integer*4 basi(2)
real*8 basr(1)
equivalence (basi,basr)
common /bas/basi
integer*4 lib$get_vm
stat = lib$get_vm(8 * siz, p, id)
if(iand(stat,1).ne.1) write(*,*) stat
allocr = (p - %loc(basr)) / 8 + 1
return
end
c
subroutine test1(n, ia)
integer*4 n
integer*4 ia(n)
integer*4 i
do 100 i = 1, 10
ia(i) = i
100 continue
do 200 i = 1, 10
write(*,*) ia(i)
200 continue
end
c
subroutine test2(n, xa)
integer*4 n
real*8 xa(n)
integer*4 i
do 100 i = 1, 10
xa(i) = i
100 continue
do 200 i = 1, 10
write(*,*) xa(i)
200 continue
end
:-)
Arne
Les messages affichés proviennent d'usenet.