diff options
Diffstat (limited to 'libgfortran/runtime/error.c')
| -rw-r--r-- | libgfortran/runtime/error.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c index 2d3c0689adc..b25cd0c8c16 100644 --- a/libgfortran/runtime/error.c +++ b/libgfortran/runtime/error.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc. +/* Copyright (C) 2002, 2003, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -508,6 +508,9 @@ notify_std (int std, const char * message) { int warning; + if (!compile_options.pedantic) + return SUCCESS; + warning = compile_options.warn_std & std; if ((compile_options.allow_std & std) != 0 && !warning) return SUCCESS; |