diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-11-03 08:20:24 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-11-03 08:20:24 +0100 |
| commit | 0ee1b105a36031f53b989f42f7bb38fc8f2c17be (patch) | |
| tree | 98fad3e4de24661c6a6e73acd3e7e4f5eb096157 /gcc/fortran/arith.c | |
| parent | 67cec813c625940ddf829c57f4bfd1c14fd7e563 (diff) | |
| download | gcc-0ee1b105a36031f53b989f42f7bb38fc8f2c17be.zip gcc-0ee1b105a36031f53b989f42f7bb38fc8f2c17be.tar.gz gcc-0ee1b105a36031f53b989f42f7bb38fc8f2c17be.tar.bz2 | |
re PR fortran/37821 (gfortran is ignoring #includes with the syntax <file.h>)
2008-11-03 Tobias Burnus <burnus@net-b.de>
PR fortran/37821
* cpp.c (gfc_cpp_add_include_path): Use BRACKET.
* scanner.c (add_path_to_list): Argument to add at head.
(gfc_add_include_path): Add new argument.
(gfc_add_intrinsic_modules_path) Update call.
(load_file): Print filename/line in the error message.
* gfortran.h (gfc_add_include_path): Update prototype.
* options.c (gfc_post_options,gfc_handle_module_path_options,
gfc_handle_option): Update call.
* lang-spec.h (F951_OPTIONS): Don't insert include path twice.
* arith.c (arith_error): Add -fno-range-error to the message.
2008-11-03 Tobias Burnus <burnus@net-b.de>
PR fortran/37821
* gfortran.dg/include_4.f90: New.
* gfortran.dg/include_5.f90: New.
* gfortran.dg/include_4.inc: New.
From-SVN: r141544
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 2ef34b1..c56be03 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -2065,11 +2065,13 @@ arith_error (arith rc, gfc_typespec *from, gfc_typespec *to, locus *where) gfc_typename (from), gfc_typename (to), where); break; case ARITH_UNDERFLOW: - gfc_error ("Arithmetic underflow converting %s to %s at %L", + gfc_error ("Arithmetic underflow converting %s to %s at %L. This check " + "can be disabled with the option -fno-range-check", gfc_typename (from), gfc_typename (to), where); break; case ARITH_NAN: - gfc_error ("Arithmetic NaN converting %s to %s at %L", + gfc_error ("Arithmetic NaN converting %s to %s at %L. This check " + "can be disabled with the option -fno-range-check", gfc_typename (from), gfc_typename (to), where); break; case ARITH_DIV0: |