gcc/testsuite/gnat.dg/langdw2.adb

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