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