summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/warn1.adb
blob: 6dbdfa2e7109443d4a45f434f3382465d1ce7a83 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
--  { dg-do run }
--  { dg-options "-gnatwae" }

procedure warn1 is
   pragma Warnings
     (Off, "variable ""Unused"" is never read and never assigned");
   Unused : Integer;
   pragma Warnings
     (On, "variable ""Unused"" is never read and never assigned");
begin
   null;
end warn1;