OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [test_equal1.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do compile }
2
 
3
with equal1;
4
procedure test_equal1 is
5
  subtype Boolean_T is Boolean;
6
  function "=" (L, R : in equal1.Basic_Connection_Status_T)
7
    return Boolean_T renames equal1."=";
8
  Status : equal1.Basic_Connection_Status_T;
9
  Result : Boolean_T;
10
begin
11
  Status := equal1.Temporary_Disconnected;
12
  Result := Status /= equal1.Connected;
13
end;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.