2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / inline_scope_p.adb
blobbbe47249cd7fbc5960493633e0998a72f8ce5530
1 package body inline_scope_p is
2 procedure Assert (Expr : Boolean; Str : String) is
3 begin
4 if Expr then
5 null;
6 end if;
7 end Assert;
8 end;