Yurttas/PL/IL/Ada-95/ProgUnits/P/p 03 p.adb

 1--
 2-- Copyright (C) 1998
 3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this 
 6-- software and its documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this 
 8-- copyright notice appears in all copies. 
 9-- 
10-- 
11 
12-- date   : January 1, 1998.
13-- author : Salih Yurttas.
14
15-- p_03_p.adb
16
17
18package body P_03_P is
19
20  procedure P1(a  : in Integer;
21               pa : out PInt) is
22  begin
23
24    pa := new Integer'(a); 
25
26    Put(pa.all); 
27
28  end P1;
29
30end P_03_P;