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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 1c961e7..e6c95de 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2010-05-05  Jakub Jelinek  <jakub@redhat.com>
+
+       PR debug/43950
+       * dwarf2out.c (gen_compile_unit_die): Add DW_AT_identifier_case
+       DW_ID_down_case for Fortran compilation units.
+
 2010-05-05  Jan Hubicka  <jh@suse.cz>
 
        * lto-cgraph.c (lto_output_varpool_node, input_varpool_node): Correctly

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index ab04b68..416f75a 100644 (file)
--- 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;
 }