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
;
11 Status
:= equal1
.Temporary_Disconnected
;
12 Result
:= Status
/= equal1
.Connected
;