X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Fresolve.c;h=26c139c84b889da9c203a418d735a356b19bcc76;hp=2686c3dac82156c2db5caeede2887db7c2104a7b;hb=920901ac7686621f11f91e8606f8e55c1fafce69;hpb=7c06916840d7f2ab77003fcd902f497504025058

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 2686c3dac82..26c139c84b8 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -971,6 +971,13 @@ resolve_actual_arglist (gfc_actual_arglist *arg, procedure_type ptype)
 	  continue;
 	}
 
+      if (e->expr_type == FL_VARIABLE && e->symtree->ambiguous)
+	{
+	  gfc_error ("'%s' at %L is ambiguous", e->symtree->n.sym->name,
+		     &e->where);
+	  return FAILURE;
+	}
+
       if (e->ts.type != BT_PROCEDURE)
 	{
 	  if (gfc_resolve_expr (e) != SUCCESS)