comp.lang.ada
 help / color / mirror / Atom feed
* Dhrystone 2.1 : d_pack_1_s.a File
@ 1989-07-14  3:00 Karl Nyberg
  0 siblings, 0 replies; only message in thread
From: Karl Nyberg @ 1989-07-14  3:00 UTC (permalink / 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;

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~1989-07-14  3:00 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1989-07-14  3:00 Dhrystone 2.1 : d_pack_1_s.a File Karl Nyberg

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox