-- { dg-do run }withGNAT.MD5;useGNAT.MD5;proceduremd5_testisTEST7:constantString:="abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq";Expected:constantMessage_Digest:="8215ef0796a20bcaaae116d3876c664a";MD:Context;beginUpdate(MD,TEST7);ifDigest(MD)/=ExpectedthenraiseProgram_Error;endif;end;