1 2 3 4 5 6 7 8 9
-- { dg-do compile } -- { dg-options "-g" } with debug1; use debug1; procedure test_debug1 is Blob : Meta_Data; begin null; end;