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