Lines Matching refs:Array_Component

80          Array_Component,  --  Unfolded object of array type  literal
127             when Array_Component =>
324             when Array_Component =>
404             when Array_Component =>
2770                                     Kind (C.Tree_Access) = Array_Component);
2772                      if Kind (C.Tree_Access) = Array_Component then
3017                               or else Kind (C) = Array_Component);
3019                if Kind (C) = Array_Component then
3044                      C.all.Tree := (Kind         => Array_Component,
3715             when Array_Component =>
3958                               or else Kind (C) = Array_Component);
3960                if Kind (C) = Array_Component then
3991                      C.all.Tree := (Kind         => Array_Component,
4258                               or else Kind (C) = Array_Component);
4260                if Kind (C) = Array_Component then
4287                      C.all.Tree := (Kind         => Array_Component,