blob: f4d362f30bbb8650098696bc8c332885c91970c2 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-g" }
with debug1; use debug1;
procedure test_debug1 is
Blob : Meta_Data;
begin
null;
end;