1--  { dg-do compile }
2--  { dg-options "-gnatwa" }
3
4package body Warn28 is
5
6   function Id (X : Integer) return Integer is (2 * X);
7
8   procedure TheProcedure1 (TheParameter : in Integer)
9   is
10   X : Integer;
11   begin
12
13      X := Id (TheParameter);
14      if X < 3 then
15         X := X ** 3;
16      end if;
17   end TheProcedure1;
18
19   procedure Junk (It : Integer) is  --  { dg-warning "formal parameter \"It\" is not referenced" }
20      X : Integer := Id (34);
21   begin
22      if X < 3 then
23         X := X ** 3;
24      end if;
25   end;
26
27   procedure TheProcedure (TheParameter : in Integer)  --  { dg-warning "formal parameter \"TheParameter\" is not referenced" }
28   is
29
30   begin
31
32      null;
33
34   end TheProcedure;
35
36end Warn28;
37