14 lines
354 B
Ada
14 lines
354 B
Ada
-- { 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;
|