From:	KAL13::ARNE         "Arne Vajhoej" 29-JUN-1996 15:27:54.27
To:	IN::"shp@cls.dk",ARNE
CC:	
Subj:	Fortran -> Pascal

$ fortran/obj=z sys$input
      INTEGER*4 I(2)
      REAL*8 X
      CHARACTER*10 S
      I(1)=1
      I(2)=2
      X=1.0
      S='ABCDEFGHIJ'
      CALL ZZ(%REF(I),%REF(X),%REF(S))
      WRITE(*,*) I
      WRITE(*,*) X
      WRITE(*,*) S
      END
$
$ pascal/obj=zz sys$input
module zz(input,output);

type
  iarr = array [1..2] of integer;
  fstring = packed array [1..10] of char;

[global] procedure zz(var i:iarr;var x:double;var s:fstring);

begin
  i[1]:=i[1]+1;
  i[2]:=i[2]+1;
  x:=x+1.0;
  s[9]:='1';
  s[10]:='2';
end;

end.
$
$ link z+zz
$ run z
