From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE autolearn=no autolearn_force=no version=3.4.4 Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!usc!ucsd!ucbvax!grebyn.com!karl From: karl@grebyn.com (Karl Nyberg) Newsgroups: comp.lang.ada Subject: Dhrystone 2.1 : d_pack_1_s.a File Message-ID: <8907140300.AA08146@grebyn.com> Date: 14 Jul 89 03:00:01 GMT Sender: daemon@ucbvax.BERKELEY.EDU Organization: The Internet List-Id: ------------------------------------------------------------------------ -- -- "DHRYSTONE" Benchmark Program -- ----------------------------- -- -- Version: Ada, Version 2.1 -- -- File: d_pack_1.s (part 2 of 6) -- -- Date: August 17, 1988 -- -- Author: Reinhold P. Weicker -- ------------------------------------------------------------------------ with Global_Def; use Global_Def; package Pack_1 is -------------- procedure Proc_0; procedure Proc_1 (Pointer_Par_In: in Record_Pointer); procedure Proc_2 (Int_Par_In_Out: in out One_To_Fifty); procedure Proc_3 (Pointer_Par_Out: out Record_Pointer); Int_Glob: integer; Char_Glob_1: character; end Pack_1;