diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2015-02-04 23:38:48 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2015-02-04 23:38:48 +0100 |
| commit | de3aebffe98c425f6368c44d32e72450139176fa (patch) | |
| tree | fc831ba012d14081b0a59fc329cfc207bc7d16aa /gcc/fortran/options.c | |
| parent | a6bc87d334fa5eed69acda9813cbf369dcdf9cf2 (diff) | |
| download | gcc-de3aebffe98c425f6368c44d32e72450139176fa.zip gcc-de3aebffe98c425f6368c44d32e72450139176fa.tar.gz gcc-de3aebffe98c425f6368c44d32e72450139176fa.tar.bz2 | |
dwarf2.h (enum dwarf_source_language): Add DW_LANG_Fortran03 and DW_LANG_Fortran08.
include/
* dwarf2.h (enum dwarf_source_language): Add DW_LANG_Fortran03
and DW_LANG_Fortran08.
gcc/
* dwarf2out.c (is_fortran): Also return true for DW_LANG_Fortran03
or DW_LANG_Fortran08.
(lower_bound_default): Return 1 for DW_LANG_Fortran03 or
DW_LANG_Fortran08.
(gen_compile_unit_die): Handle "GNU Fortran2003" and
"GNU Fortran2008" language strings.
* dbxout.c (get_lang_number): Use lang_GNU_Fortran.
* langhooks.h (lang_GNU_Fortran): New prototype.
* langhooks.c (lang_GNU_Fortran): New function.
* config/rs6000/rs6000.c (rs6000_output_function_epilogue): Use
lang_GNU_Fortran.
gcc/fortran/
* options.c: Include langhooks.h.
(gfc_post_options): Change lang_hooks.name based on
selected -std= mode.
From-SVN: r220422
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 60473dd..1262ccc 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -43,6 +43,7 @@ along with GCC; see the file COPYING3. If not see #include "cpp.h" #include "diagnostic.h" /* For global_dc. */ #include "tm.h" +#include "langhooks.h" gfc_option_t gfc_option; @@ -398,6 +399,11 @@ gfc_post_options (const char **pfilename) gfc_cpp_post_options (); + if (gfc_option.allow_std & GFC_STD_F2008) + lang_hooks.name = "GNU Fortran2008"; + else if (gfc_option.allow_std & GFC_STD_F2003) + lang_hooks.name = "GNU Fortran2003"; + return gfc_cpp_preprocess_only (); } |