(0 . 0)(1 . 8)1016 --S.MG, 20181017 1018 package Test_Serpent is1019 Implementation_Error : exception; -- raised if Selftest failed1020 1021 procedure Selftest;1022 1023 end Test_Serpent;