Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/inline_scope.adb @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } -- { dg-options "-gnatN" } with inline_scope_p; procedure inline_scope (X : Integer) is type A is array (Integer range 1 .. 2) of Boolean; S : A; pragma Warnings (Off, S); procedure Report_List is begin inline_scope_p.Assert (S (1), Natural'Image (Natural (1))); end Report_List; begin null; end;