gcc/testsuite/gnat.dg/debug7.adb

   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
   6 package body Debug7 is
   7    function Next (I : Integer) return Integer is
   8    begin
   9       return I + 1;
  10    end Next;
  11 end Debug7;