From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 22 Jun 2012 07:18:50 +0000 (+0000)
Subject: re PR debug/53704 (ICE: in based_loc_descr, at dwarf2out.c:10027 after revision 188621)
X-Git-Tag: misc/gccgo-go1_1_2~2225
X-Git-Url: https://gcc.gnu.org/git/?a=commitdiff_plain;h=c43470b1f6bf8f1c89044f10bf4d6f899dfc6c15;p=gcc.git

re PR debug/53704 (ICE: in based_loc_descr, at dwarf2out.c:10027 after revision 188621)

	PR debug/53704
	* dwarf2out.c (gen_compile_unit_die): Use DW_LANG_Fortran90 as language
	for GNU Fortran if in strict DWARF2 mode.

From-SVN: r188874
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 8326b55101a2..1b32a583d491 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2012-06-22  Eric Botcazou  <ebotcazou@adacore.com>
+
+	PR debug/53704
+	* dwarf2out.c (gen_compile_unit_die): Use DW_LANG_Fortran90 as language
+	for GNU Fortran if in strict DWARF2 mode.
+
 2012-06-22  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* tree-ssa-live.c (remove_unused_scope_block_p): Remove again
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 2b9971f1857a..282a0e507c8d 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);