OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gcc.c (default_compilers): Sync Fortran extensions list with that in fortran/lang-specs.h. 

gcc/
	* gcc.c (default_compilers): Sync Fortran extensions list with
	that in fortran/lang-specs.h.
	* doc/invoke.texi: Likewise.
	* dbxout.c (get_lang_number): Use "GNU Fortran" in "GNU F95".
	* dwarf2out.c (gen_compile_unit_die): Likewise.

gcc/fortran/
	* f95-lang.c: Set LANG_HOOKS_NAME to "GNU Fortran".

From-SVN: r133960
This commit is contained in:
Francois-Xavier Coudert 2008-04-06 12:36:58 +00:00 committed by François-Xavier Coudert
parent daf5afd48f
commit 3135ce84cc
7 changed files with 30 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ChangeLog
View File

@ -1,3 +1,11 @@
2008-04-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* gcc.c (default_compilers): Sync Fortran extensions list with
that in fortran/lang-specs.h.
* doc/invoke.texi: Likewise.
* dbxout.c (get_lang_number): Use "GNU Fortran" in "GNU F95".
* dwarf2out.c (gen_compile_unit_die): Likewise.
2008-04-06 Tom G. Christensen <tgc@jupiterrise.com>
* gthr-posix95.h (__gthread_cond_wait_recursive): Add missing &.

2
gcc/dbxout.c
View File

@ -963,7 +963,7 @@ get_lang_number (void)
return N_SO_CC;
else if (strcmp (language_string, "GNU F77") == 0)
return N_SO_FORTRAN;
else if (strcmp (language_string, "GNU F95") == 0)
else if (strcmp (language_string, "GNU Fortran") == 0)
return N_SO_FORTRAN90; /* CHECKME */
else if (strcmp (language_string, "GNU Pascal") == 0)
return N_SO_PASCAL;

8
gcc/doc/invoke.texi
View File

@ -932,21 +932,27 @@ C++ header file to be turned into a precompiled header.
@item @var{file}.f
@itemx @var{file}.for
@itemx @var{file}.FOR
@itemx @var{file}.ftn
Fixed form Fortran source code which should not be preprocessed.
@item @var{file}.F
@itemx @var{file}.FOR
@itemx @var{file}.fpp
@itemx @var{file}.FPP
@itemx @var{file}.FTN
Fixed form Fortran source code which must be preprocessed (with the traditional
preprocessor).
@item @var{file}.f90
@itemx @var{file}.f95
@itemx @var{file}.f03
@itemx @var{file}.f08
Free form Fortran source code which should not be preprocessed.
@item @var{file}.F90
@itemx @var{file}.F95
@itemx @var{file}.F03
@itemx @var{file}.F08
Free form Fortran source code which must be preprocessed (with the
traditional preprocessor).

2
gcc/dwarf2out.c
View File

@ -13221,7 +13221,7 @@ gen_compile_unit_die (const char *filename)
language = DW_LANG_Ada95;
else if (strcmp (language_string, "GNU F77") == 0)
language = DW_LANG_Fortran77;
else if (strcmp (language_string, "GNU F95") == 0)
else if (strcmp (language_string, "GNU Fortran") == 0)
language = DW_LANG_Fortran95;
else if (strcmp (language_string, "GNU Pascal") == 0)
language = DW_LANG_Pascal83;

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2008-04-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* f95-lang.c: Set LANG_HOOKS_NAME to "GNU Fortran".
2008-04-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* dump-parse-tree.c: Use fprintf, fputs and fputc instead of

2
gcc/fortran/f95-lang.c
View File

@ -121,7 +121,7 @@ static alias_set_type gfc_get_alias_set (tree);
#undef LANG_HOOKS_GET_ARRAY_DESCR_INFO
/* Define lang hooks. */
#define LANG_HOOKS_NAME "GNU F95"
#define LANG_HOOKS_NAME "GNU Fortran"
#define LANG_HOOKS_INIT gfc_init
#define LANG_HOOKS_FINISH gfc_finish
#define LANG_HOOKS_INIT_OPTIONS gfc_init_options

13
gcc/gcc.c
View File

@ -966,11 +966,14 @@ static const struct compiler default_compilers[] =
{".c++", "#C++", 0, 0, 0}, {".C", "#C++", 0, 0, 0},
{".CPP", "#C++", 0, 0, 0}, {".ii", "#C++", 0, 0, 0},
{".ads", "#Ada", 0, 0, 0}, {".adb", "#Ada", 0, 0, 0},
{".f", "#Fortran", 0, 0, 0}, {".for", "#Fortran", 0, 0, 0},
{".fpp", "#Fortran", 0, 0, 0}, {".F", "#Fortran", 0, 0, 0},
{".FOR", "#Fortran", 0, 0, 0}, {".FPP", "#Fortran", 0, 0, 0},
{".f90", "#Fortran", 0, 0, 0}, {".f95", "#Fortran", 0, 0, 0},
{".F90", "#Fortran", 0, 0, 0}, {".F95", "#Fortran", 0, 0, 0},
{".f", "#Fortran", 0, 0, 0}, {".F", "#Fortran", 0, 0, 0},
{".for", "#Fortran", 0, 0, 0}, {".FOR", "#Fortran", 0, 0, 0},
{".ftn", "#Fortran", 0, 0, 0}, {".FTN", "#Fortran", 0, 0, 0},
{".fpp", "#Fortran", 0, 0, 0}, {".FPP", "#Fortran", 0, 0, 0},
{".f90", "#Fortran", 0, 0, 0}, {".F90", "#Fortran", 0, 0, 0},
{".f95", "#Fortran", 0, 0, 0}, {".F95", "#Fortran", 0, 0, 0},
{".f03", "#Fortran", 0, 0, 0}, {".F03", "#Fortran", 0, 0, 0},
{".f08", "#Fortran", 0, 0, 0}, {".F08", "#Fortran", 0, 0, 0},
{".r", "#Ratfor", 0, 0, 0},
{".p", "#Pascal", 0, 0, 0}, {".pas", "#Pascal", 0, 0, 0},
{".java", "#Java", 0, 0, 0}, {".class", "#Java", 0, 0, 0},