1-- { dg-do compile }
2-- { dg-skip-if "No dwarf-2 support" { hppa*-*-hpux* } }
3-- { dg-options "-cargs -gdwarf-2 -gstrict-dwarf -dA -margs" }
4-- { dg-final { scan-assembler "DW_TAG_imported_decl" } }
5
6package body Debug7 is
7   function Next (I : Integer) return Integer is
8   begin
9      return I + 1;
10   end Next;
11end Debug7;
12