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