diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-05-05 21:11:16 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-05-05 21:11:16 +0200 |
| commit | 58c13acc6abf49f392d72d269e6c0a88eae25319 (patch) | |
| tree | 2d73b7755d2de0268d8c9104db88e2c966036a8f /gcc/dwarf2out.c | |
| parent | e5880243049fd9d3992c86eb2f929abd3514153c (diff) | |
| download | gcc-58c13acc6abf49f392d72d269e6c0a88eae25319.zip gcc-58c13acc6abf49f392d72d269e6c0a88eae25319.tar.gz gcc-58c13acc6abf49f392d72d269e6c0a88eae25319.tar.bz2 | |
re PR debug/43950 (fortran: Use DW_AT_identifier_case)
PR debug/43950
* dwarf2out.c (gen_compile_unit_die): Add DW_AT_identifier_case
DW_ID_down_case for Fortran compilation units.
From-SVN: r159077
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index ab04b68..416f75a 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -18747,6 +18747,20 @@ gen_compile_unit_die (const char *filename) } add_AT_unsigned (die, DW_AT_language, language); + + switch (language) + { + case DW_LANG_Fortran77: + case DW_LANG_Fortran90: + case DW_LANG_Fortran95: + /* Fortran has case insensitive identifiers and the front-end + lowercases everything. */ + add_AT_unsigned (die, DW_AT_identifier_case, DW_ID_down_case); + break; + default: + /* The default DW_ID_case_sensitive doesn't need to be specified. */ + break; + } return die; } |