URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [test_equal1.adb] - Rev 826
Compare with Previous | Blame | View Log
-- { dg-do compile } with equal1; procedure test_equal1 is subtype Boolean_T is Boolean; function "=" (L, R : in equal1.Basic_Connection_Status_T) return Boolean_T renames equal1."="; Status : equal1.Basic_Connection_Status_T; Result : Boolean_T; begin Status := equal1.Temporary_Disconnected; Result := Status /= equal1.Connected; end;