procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

intrinsic.c (gfc_intrinsic_func_interface): Enable errors for generic functions whose simplification routine return FAILURE.

Browse source 
* intrinsic.c (gfc_intrinsic_func_interface): Enable errors for generic
  functions whose simplification routine return FAILURE.

From-SVN: r101160
This commit is contained in:
Steven G. Kargl 2005-06-18 17:59:31 +00:00 • committed by Steven G. Kargl
parent 10553f10f3
commit 14ceeb3258
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -1,3 +1,8 @@
2005-06-18 Steven G. Kargl <kargls@comcast.net>
* intrinsic.c (gfc_intrinsic_func_interface): Enable errors for generic
functions whose simplification routine return FAILURE.
2005-06-13 Geoffrey Keating <geoffk@apple.com>
* Make-lang.in (fortran.install-man): Doesn't depend on installdirs.

7
gcc/fortran/intrinsic.c
View file

@ -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))
{