Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / pointer_protected.adb
blob070dbef94067691e5fb39ef5eb2fddd7b0f03af6
1 -- { dg-do compile }
3 with pointer_protected_p;
5 procedure pointer_protected is
6 Pointer : pointer_protected_p.Ptr := null;
7 Data : pointer_protected_p.T;
8 begin
9 Pointer.all (Data);
10 end pointer_protected;