Bug #343978 Recognize DWARF5/GCC5 DW_LANG_Fortran 2003 and 2008 constants.
git-svn-id: svn://svn.valgrind.org/valgrind/trunk@14923 a5019735-40e9-0310-863c-91ae7b9d1cf9
diff --git a/NEWS b/NEWS
index 8fd2660..6395513 100644
--- a/NEWS
+++ b/NEWS
@@ -92,6 +92,7 @@
343802 s390x: Fix false positives "conditional jump or move depends on
unitialised value(s)"
343967 Don't warn about setuid/setgid/setcap executable for directories
+343978 Recognize DWARF5/GCC5 DW_LANG_Fortran 2003 and 2008 constants
n-i-bz Provide implementations of certain compiler builtins to support
compilers who may not provide those
n-i-bz Old STABS code is still being compiled, but never used. Remove it.
diff --git a/coregrind/m_debuginfo/priv_d3basics.h b/coregrind/m_debuginfo/priv_d3basics.h
index cf9b415..4c06966 100644
--- a/coregrind/m_debuginfo/priv_d3basics.h
+++ b/coregrind/m_debuginfo/priv_d3basics.h
@@ -171,6 +171,8 @@
DW_LANG_C_plus_plus_11 = 0x001a,
DW_LANG_C11 = 0x001d,
DW_LANG_C_plus_plus_14 = 0x0021,
+ DW_LANG_Fortran03 = 0x0022,
+ DW_LANG_Fortran08 = 0x0023,
/* MIPS. */
DW_LANG_Mips_Assembler = 0x8001,
/* UPC. */
diff --git a/coregrind/m_debuginfo/readdwarf3.c b/coregrind/m_debuginfo/readdwarf3.c
index d89af4f..89f247a 100644
--- a/coregrind/m_debuginfo/readdwarf3.c
+++ b/coregrind/m_debuginfo/readdwarf3.c
@@ -3075,7 +3075,8 @@
case DW_LANG_C_plus_plus_11: case DW_LANG_C_plus_plus_14:
parser->language = 'C'; break;
case DW_LANG_Fortran77: case DW_LANG_Fortran90:
- case DW_LANG_Fortran95:
+ case DW_LANG_Fortran95: case DW_LANG_Fortran03:
+ case DW_LANG_Fortran08:
parser->language = 'F'; break;
case DW_LANG_Ada83: case DW_LANG_Ada95:
parser->language = 'A'; break;
