diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-22 07:18:50 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-22 07:18:50 +0000 |
| commit | 53c763aad716ff89d1e12f0315f9bf22d037b1b1 (patch) | |
| tree | 3aa69431ae858929b93fe2cf13ec8d13e2ceb468 /gcc/dwarf2out.c | |
| parent | 25db41e923efb9076dc5de0743b898186cebbcc0 (diff) | |
| download | gcc-53c763aad716ff89d1e12f0315f9bf22d037b1b1.tar.gz | |
PR debug/53704
* dwarf2out.c (gen_compile_unit_die): Use DW_LANG_Fortran90 as language
for GNU Fortran if in strict DWARF2 mode.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@188874 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 2b9971f1857..282a0e507c8 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -18220,6 +18220,9 @@ gen_compile_unit_die (const char *filename) language = DW_LANG_Go; } } + /* Use a degraded Fortran setting in strict DWARF2 so is_fortran works. */ + else if (strcmp (language_string, "GNU Fortran") == 0) + language = DW_LANG_Fortran90; add_AT_unsigned (die, DW_AT_language, language); |