1-- { dg-do compile { target *-*-gnu* } }
2-- { dg-options "-gnateS -gdwarf -g -O -gno-column-info" }
3-- { dg-final { scan-assembler "loc \[0-9] 5 \[0-9]( is_stmt \[0-9])? discriminator 1\[ \n]" } } */
4-- { dg-final { scan-assembler-not "loc \[0-9] 5 \[0-9]( is_stmt \[0-9])? discriminator 2\[ \n]" } } */
5-- { dg-final { scan-assembler "loc \[0-9] 5 \[0-9]( is_stmt \[0-9])? discriminator 3\[ \n]" } } */
6-- { dg-final { scan-assembler "loc \[0-9] 5 \[0-9]( is_stmt \[0-9])? discriminator 4\[ \n]" } } */
7
8
9with DInst_Pkg;
10procedure DInst is
11   package I1 is new DInst_Pkg; -- instance 1
12   package I2 is new DInst_Pkg; -- instance 2
13   package I3 is new DInst_Pkg; -- instance 3
14   package I4 is new DInst_Pkg; -- instance 4
15begin
16   I1.Foo;
17   -- I2.Foo;
18   I3.Foo;
19   I4.Foo;
20end;
21