From: karl@grebyn.com (Karl Nyberg)
Subject: Dhrystone 2.1 : d_pack_1_s.a File
Date: 14 Jul 89 03:00:01 GMT [thread overview]
Message-ID: <8907140300.AA08146@grebyn.com> (raw)
------------------------------------------------------------------------
--
-- "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;
reply other threads:[~1989-07-14 3:00 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox