blob: 5e61ca254b662f27880505fa38294ad6468862ed (
plain)
1
2
3
4
5
6
7
8
9
|
-- with strict dwarf2, we should produce DW_LANG_Ada83 (0x3) as AT_language
-- { 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 "0x3\[^\n\r\]*AT_language" } }
procedure Langdw2 is begin null; end;
|
