Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / check1.ads
blobbaeeda007a0b4bc973aee2b7cc3c2ff578263068
1 package Check1 is
2 type Arr is array (Integer range <>) of Integer;
3 type P2 is access all Arr;
4 type R (Disc : access Arr) is limited null record;
5 function FD (X : access R) return P2;
6 end Check1;