dummy/dummy.ads

   1 pragma No_Run_Time;
   2
   3 package Dummy is
   4    pragma Preelaborate;
   5
   6    procedure Eh_Personality;
   7    pragma Export (C, Eh_Personality, "__gnat_eh_personality");
   8
   9 end Dummy;