View | Details | Raw Unified | Return to bug 33162 | Differences between
and this patch

Collapse All | Expand All | Context: (Patch / File /
)

(-)decl.c (-11 / +4 lines)
 Lines 1-11    Link Here 
1
      /* TODO: Allow intrinsics with gfc_intrinsic_actual_ok
1
      if (proc_if->attr.intrinsic && gfc_intrinsic_actual_ok (proc_if->name, 0))
2
	 (proc_if->name, 0) after PR33162 is fixed.  */
2
	goto set_if;
3
      if (proc_if->attr.intrinsic)
3
4
	{
4
set_if:
5
	  gfc_error ("Fortran 2003: Support for intrinsic procedure '%s' "
6
		     "in PROCEDURE statement at %C not yet implemented "
7
		     "in gfortran", proc_if->name);
8
	  return MATCH_ERROR;
9
	}
10
11
(-)resolve.c (+7 lines)
Line 1    Link Here 
1
  if (sym->interface != NULL && sym->interface->attr.intrinsic)
2
    {
3
      sym->interface->refs = expr->symtree->n.sym->refs;
4
      expr->symtree->n.sym = sym->interface;
5
      return gfc_intrinsic_func_interface (expr, 1);
6
    }
7