1-- { dg-do compile }
2
3with equal1;
4procedure 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;
10begin
11  Status := equal1.Temporary_Disconnected;
12  Result := Status /= equal1.Connected;
13end;
14