gcc/testsuite/gnat.dg/unreferenced.adb


1
2
3
4
5
6
7
8
9
10
11

--  { dg-do compile }
--  { dg-options "-gnatd.F" }

procedure Unreferenced is
   X : aliased Integer;
   Y : access  Integer := X'Access;
   Z : Integer renames Y.all;
   pragma Unreferenced (Z);
begin
   null;
end Unreferenced;