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