summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/deref3.adb
blob: b0edb18fb52c57cb75baf5f76b5c1b991dc44689 (plain)
1
2
3
4
5
6
7
8
9
10
--  { dg-do compile }

with deref2;
procedure deref3 is
   Obj : aliased deref2.NT;
begin
   deref2.PT_View (Obj'Access).Op;
   Obj.PT_View.all.Op;
   Obj.PT_View.Op;
end;