smg_comms_packing... 1 --S.MG, 2018
smg_comms_packing... 2
smg_comms_packing... 3 package Test_Serpent is
smg_comms_packing... 4 Implementation_Error : exception; -- raised if Selftest failed
smg_comms_packing... 5
smg_comms_packing... 6 procedure Selftest;
smg_comms_packing... 7
smg_comms_packing... 8 end Test_Serpent;