gcc/testsuite/gnat.dg/langdw3.adb

   1 -- with dwarf3+ or !strict-dwarf, we should produce DW_LANG_Ada95 (0xd)
   2 -- as AT_language
   3
   4 -- { dg-do compile }
   5 -- { dg-skip-if "No dwarf-2 support" { hppa*-*-hpux* } }
   6 -- { dg-options "-cargs -gdwarf-3 -dA -margs" }
   7 -- { dg-final { scan-assembler "0xd\[^\n\r\]*AT_language" } }
   8
   9 procedure Langdw3 is begin null;  end;
  10