Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gnat.dg/warn20.adb @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 -- { dg-do compile }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 -- { dg-options "-gnatwa" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 with Warn20_Pkg;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 procedure Warn20 is
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 package P is new Warn20_Pkg (Integer, 0);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8 pragma Unreferenced (P);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 begin
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 null;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 end Warn20;