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

$ pascal/obj=z sys$input
program z(input,output);

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

[EXTERNAL] procedure zz(%REF i:iarr;
                        %REF x:double;
                        %DESCR s:fstring); extern;

var
   i : iarr;
   x : double;
   s : fstring;

begin
   i[1]:=1;
   i[2]:=2;
   x:=1.0;
   s:='ABCDEFGHIJ';
   zz(i,x,s);
   writeln(i[1]);
   writeln(i[2]);
   writeln(x);
   writeln(s);
end.
$
$ fortran/obj=zz sys$input
      SUBROUTINE ZZ(I,X,S)
      INTEGER*4 I(2)
      REAL*8 X
      CHARACTER*10 S
      I(1)=I(1)+1
      I(2)=I(2)+1
      X=X+1.0
      S(9:10)='12'
      RETURN
      END
$
$ link z+zz
$ run z
