Subversion Repositories openrisc

-- { 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;