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

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

(-)decl.c (-11 / +5 lines)
 Lines 1-11    Link Here 
1
      /* TODO: Allow intrinsics with gfc_intrinsic_actual_ok
1
      if (proc_if != NULL && proc_if->attr.intrinsic
2
	 (proc_if->name, 0) after PR33162 is fixed.  */
2
	  && gfc_intrinsic_actual_ok (proc_if->name, 0))
3
      if (proc_if->attr.intrinsic)
3
	goto set_if;
4
	{
4
5
	  gfc_error ("Fortran 2003: Support for intrinsic procedure '%s' "
5
set_if:
6
		     "in PROCEDURE statement at %C not yet implemented "
7
		     "in gfortran", proc_if->name);
8
	  return MATCH_ERROR;
9
	}
10
11
(-)resolve.c (+19 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
8
  /* See if we have an intrinsic interface.  */
9
10
  if (sym->interface != NULL && sym->interface->attr.intrinsic)
11
    {
12
      sym->interface->refs++;
13
      expr->symtree->n.sym = sym->interface;
14
      if (gfc_intrinsic_func_interface (expr, 1) == MATCH_YES)
15
	return SUCCESS;
16
      return FAILURE;
17
    }
18
19