URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [md5_test.adb] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } with GNAT.MD5; use GNAT.MD5; procedure md5_test is TEST7 : constant String := "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"; Expected : constant Message_Digest := "8215ef0796a20bcaaae116d3876c664a"; MD : Context; begin Update (MD, TEST7); if Digest (MD) /= Expected then raise Program_Error; end if; end;
Go to most recent revision | Compare with Previous | Blame | View Log