gcc/testsuite/gnat.dg/dinst.adb

   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
   9 with DInst_Pkg;
  10 procedure 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
  15 begin
  16    I1.Foo;
  17    -- I2.Foo;
  18    I3.Foo;
  19    I4.Foo;
  20 end;