blob: 7a7e411fa586268fe87cd6b7c17e62fb1a5b4395 [file] [log] [blame]
package Aliasing2 is
type Arr is Array (1..4) of Integer;
type Ptr is access all Integer;
A : Arr;
function F (P : Ptr) return Integer;
end Aliasing2;