gcc/testsuite/gnat.dg/md5_test.adb

   1 -- { dg-do run }
   2
   3 with GNAT.MD5; use GNAT.MD5;
   4 procedure md5_test is
   5    TEST7  : constant String := "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq";
   6
   7    Expected : constant Message_Digest :=
   8       "8215ef0796a20bcaaae116d3876c664a";
   9    MD : Context;
  10 begin
  11    Update (MD, TEST7);
  12    if Digest (MD) /= Expected then
  13       raise Program_Error;
  14    end if;
  15 end;