1367       Do_Access : constant Boolean    := Is_Access_Type (Typ);  constant
1429       if Do_Access then
1523               or else (Do_Access and then Designated_Type (Typ) = S_Typ))
1657                   if Do_Access then   --  needs run-time check.
1701       if Do_Access then
8119       Do_Access   : Boolean := False;  variable
8407          Do_Access := True;
8507                         if not Do_Access
8592          if Do_Access then
8621       Do_Access   : Boolean := False;  variable
8963          Do_Access := True;
9043               and not Do_Access
9187          elsif Compile_Time_Known_Value (Ck_Node) and then not Do_Access then
9355               and then not Do_Access
9433          if Do_Access then