From fc2d8429a97aa1cdfe7794477e90ac924e646b06 Mon Sep 17 00:00:00 2001 From: Roger Sayle Date: Sun, 1 Aug 2004 21:37:21 +0000 Subject: [PATCH] options.c (gfc_init_options): Don't warn about the use GNU extensions by default. * 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 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/options.c | 10 +++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 677342764c3..6a5151eee11 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2004-08-01 Roger Sayle + + * 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 * trans-expr.c (gfc_conv_expr_reference): Create a CONST_DECL diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index c8dc3293efd..8432f5e6baa 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -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; }