mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-15 18:01:31 +08:00
Code Issues Packages Projects Releases Wiki Activity

options.c (set_default_std_flags): New function to consolidate setting the flags.

Browse Source 
2007-02-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* options.c (set_default_std_flags): New function to consolidate
	setting the flags.
	(gfc_init_options): Use new function.
	(gfc_handle_option): Use new function.

From-SVN: r122252
This commit is contained in:
Jerry DeLisle 2007-02-23 07:14:04 +00:00
parent 2bc677620c
commit a47eec17b4
2 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* options.c (set_default_std_flags): New function to consolidate
setting the flags.
(gfc_init_options): Use new function.
(gfc_handle_option): Use new function.
2007-02-22 Brooks Moses <brooks.moses@codesourcery.com>
* gfortran.texi (Old-style kind specifications): Document

27
gcc/fortran/options.c
View File

@ -36,6 +36,18 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
gfc_option_t gfc_option;
/* Set flags that control warnings and errors for different
Fortran standards to their default values. */
static void
set_default_std_flags (void)
{
gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F2003 | GFC_STD_F95 | GFC_STD_F77 | GFC_STD_GNU
| GFC_STD_LEGACY;
gfc_option.warn_std = GFC_STD_F95_DEL | GFC_STD_LEGACY;
}
/* Get ready for options handling. */
unsigned int
@ -97,10 +109,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
flag_errno_math = 0;
gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F2003 | GFC_STD_F95 | GFC_STD_F77 | GFC_STD_GNU
| GFC_STD_LEGACY;
gfc_option.warn_std = GFC_STD_F95_DEL | GFC_STD_LEGACY;
set_default_std_flags ();
gfc_option.warn_nonstd_intrinsics = 0;
@ -624,17 +633,11 @@ gfc_handle_option (size_t scode, const char *arg, int value)
break;
case OPT_std_gnu:
gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F77 | GFC_STD_F95 | GFC_STD_F2003
| GFC_STD_GNU | GFC_STD_LEGACY;
gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_LEGACY;
set_default_std_flags ();
break;
case OPT_std_legacy:
gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F77 | GFC_STD_F95 | GFC_STD_F2003
| GFC_STD_GNU | GFC_STD_LEGACY;
set_default_std_flags ();
gfc_option.warn_std = 0;
break;