diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-05-05 19:11:16 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-05-05 19:11:16 +0000 |
| commit | 0217ac3cadd9857f653e4baed0269172714a70e8 (patch) | |
| tree | 2d73b7755d2de0268d8c9104db88e2c966036a8f /gcc/dwarf2out.c | |
| parent | 53ee584785ce94d834c0679ed8a6abb6a7c89e99 (diff) | |
| download | gcc-0217ac3cadd9857f653e4baed0269172714a70e8.tar.gz | |
PR debug/43950
* dwarf2out.c (gen_compile_unit_die): Add DW_AT_identifier_case
DW_ID_down_case for Fortran compilation units.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@159077 138bc75d-0d04-0410-961f-82ee72b054a4
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 ab04b68edec..416f75a1465 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; } |