if (t == NULL_TREE)
if ((t == NULL_TREE) && ((ffesymbol_kind (s) != FFEINFO_kindNONE) || ((ffesymbol_where (s) != FFEINFO_whereNONE) && (ffesymbol_where (s) != FFEINFO_whereINTRINSIC))))
ffecom_expr_transform_ (ffebld expr){  tree t;  ffesymbol s;tail_recurse:			/* :::::::::::::::::::: */  if (expr == NULL)    return;  switch (ffebld_op (expr))    {    case FFEBLD_opSYMTER:      s = ffebld_symter (expr);      t = ffesymbol_hook (s).decl_tree;      if (t == NULL_TREE)	{	  s = ffecom_sym_transform_ (s);	  t = ffesymbol_hook (s).decl_tree;	/* Sfunc expr non-dummy,						   DIMENSION expr? */	}      break;			/* Ok if (t == NULL) here. */    case FFEBLD_opITEM:      ffecom_expr_transform_ (ffebld_head (expr));      expr = ffebld_trail (expr);      goto tail_recurse;	/* :::::::::::::::::::: */    default:      break;    }  switch (ffebld_arity (expr))    {    case 2:      ffecom_expr_transform_ (ffebld_left (expr));      expr = ffebld_right (expr);      goto tail_recurse;	/* :::::::::::::::::::: */    case 1:      expr = ffebld_left (expr);      goto tail_recurse;	/* :::::::::::::::::::: */    default:      break;    }  return;}