OSDN Git Service

Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / test_equal1.adb
1 -- { 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;