summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/aliasing1.ads
blob: 9ebfd6206b445d9d193aee2068c7c8f11b6dd54b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
package Aliasing1 is

  type Rec is record
    I : Integer;
  end record;

  type Ptr is access all Integer;

  R : Rec;

  function F (P : Ptr) return Integer;

end Aliasing1;