begin

  routine FRED(integername Param)
!    %integer I
!    Param = 3;    ! *Param = 3;
!    Param == I   ;! Although Imp77 allows this, it should be warned about!  It won't propogate out of the routine.
!                  ! This should generate "Param = &I;"
  end

  integer K = 0

  FRED(K)
  ! This should generate "Fred(&K);" 

endofprogram