From: Jakub Jelinek <jakub@redhat.com>
Date: Wed, 5 May 2010 19:11:16 +0000 (+0200)
Subject: re PR debug/43950 (fortran: Use DW_AT_identifier_case)
X-Git-Tag: releases/gcc-4.6.0~7477
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=58c13acc6abf49f392d72d269e6c0a88eae25319;p=thirdparty%2Fgcc.git

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 1c961e792a4a..e6c95de72de9 100644
--- 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 ab04b68edec1..416f75a14657 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;
 }