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

options.c (gfc_init_options): Don't warn about the use GNU extensions by default.

Browse Source 
* options.c (gfc_init_options): Don't warn about the use GNU
	extensions by default.
	(gfc_post_options): Warn about GNU extensions with -pedantic.
	(gfc_handle_option): Don't warn about GNU extensions with -std=gnu.

From-SVN: r85413
This commit is contained in:
Roger Sayle 2004-08-01 21:37:21 +00:00 committed by Roger Sayle
parent dbe4d0704f
commit fc2d8429a9
2 changed files with 14 additions and 3 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 @@
2004-08-01 Roger Sayle <roger@eyesopen.com>
* options.c (gfc_init_options): Don't warn about the use GNU
extensions by default.
(gfc_post_options): Warn about GNU extensions with -pedantic.
(gfc_handle_option): Don't warn about GNU extensions with -std=gnu.
2004-07-30 Richard Henderson <rth@redhat.com>
* trans-expr.c (gfc_conv_expr_reference): Create a CONST_DECL

10
gcc/fortran/options.c
View File

@ -80,7 +80,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_F2003 | GFC_STD_GNU;
gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F2003 | GFC_STD_GNU;
| GFC_STD_F2003;
return CL_F95;
}
@ -111,7 +111,11 @@ gfc_post_options (const char **pfilename)
flag_inline_trees = 2;
flag_inline_functions = 0;
}
/* If -pedantic, warn about the use of GNU extensions. */
if (pedantic && (gfc_option.allow_std & GFC_STD_GNU) != 0)
gfc_option.warn_std |= GFC_STD_GNU;
return false;
}
@ -321,7 +325,7 @@ gfc_handle_option (size_t scode, const char *arg, int value)
gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_F2003 | GFC_STD_GNU;
gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_GNU;
| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL;
break;
}