From 82d472f14f8ee97f57594fa31ff5b9b038b37e69 Mon Sep 17 00:00:00 2001 From: kenner Date: Fri, 27 Oct 1995 01:40:40 +0000 Subject: [PATCH] (output_compile_unit_die): Handle language_string of "GNU F77". git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@10525 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/dwarfout.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c index b10de49ec6a..b484e5a9eb2 100644 --- a/gcc/dwarfout.c +++ b/gcc/dwarfout.c @@ -1,5 +1,5 @@ /* Output Dwarf format symbol table information from the GNU C compiler. - Copyright (C) 1992, 1993 Free Software Foundation, Inc. + Copyright (C) 1992, 1993, 1995 Free Software Foundation, Inc. Written by Ron Guilmette (rfg@netcom.com) for Network Computing Devices, August, September, October, November 1990. @@ -3463,6 +3463,8 @@ output_compile_unit_die (arg) language_attribute (LANG_C_PLUS_PLUS); else if (strcmp (language_string, "GNU Ada") == 0) language_attribute (LANG_ADA83); + else if (strcmp (language_string, "GNU F77") == 0) + language_attribute (LANG_FORTRAN77); else if (flag_traditional) language_attribute (LANG_C); else -- 2.11.0