diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-06-18 17:59:31 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-06-18 17:59:31 +0000 |
| commit | 14ceeb325864470c4dd8e0628e9e3033f50634aa (patch) | |
| tree | ecf4ea34b31a7564df53b3d834fa066846d72fd9 /gcc/fortran/intrinsic.c | |
| parent | 10553f10f3ea2a3b6059f698f3d94b3b06dd3559 (diff) | |
| download | gcc-14ceeb325864470c4dd8e0628e9e3033f50634aa.zip gcc-14ceeb325864470c4dd8e0628e9e3033f50634aa.tar.gz gcc-14ceeb325864470c4dd8e0628e9e3033f50634aa.tar.bz2 | |
intrinsic.c (gfc_intrinsic_func_interface): Enable errors for generic functions whose simplification routine return FAILURE.
* intrinsic.c (gfc_intrinsic_func_interface): Enable errors for generic
functions whose simplification routine return FAILURE.
From-SVN: r101160
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 66cf190..4d53528 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -3007,16 +3007,13 @@ got_specific: expr->value.function.isym = specific; gfc_intrinsic_symbol (expr->symtree->n.sym); + gfc_suppress_error = 0; if (do_simplify (specific, expr) == FAILURE) - { - gfc_suppress_error = 0; - return MATCH_ERROR; - } + return MATCH_ERROR; /* TODO: We should probably only allow elemental functions here. */ flag |= (expr->ts.type != BT_INTEGER && expr->ts.type != BT_CHARACTER); - gfc_suppress_error = 0; if (pedantic && gfc_init_expr && flag && gfc_init_expr_extensions (specific)) { |