else if (kind == FFEINFO_kindANY) {			 na = sa | FFESYMBOL_attrsINTRINSIC | FFESYMBOL_attrsANY; ffesymbol_set_attrs (s, na); ffesymbol_set_state (s, FFESYMBOL_stateUNDERSTOOD); ffesymbol_set_info (s, ffeinfo_new_any ()); }
ffestc_R1208_item (ffelexToken name){  ffesymbol s;  ffesymbolAttrs sa;  ffesymbolAttrs na;  ffeintrinGen gen;  ffeintrinSpec spec;  ffeintrinImp imp;  ffeinfoKind kind;  ffestc_check_item_ ();  assert (name != NULL);  if (!ffestc_ok_)    return;  s = ffesymbol_declare_local (name, TRUE);  sa = ffesymbol_attrs (s);  /* Figure out what kind of object we've got based on previous declarations     of or references to the object. */  if (!ffesymbol_is_specable (s))    na = FFESYMBOL_attrsetNONE;	/* Can't dcl sym ref'd in sfuncdef. */  else if (sa & FFESYMBOL_attrsANY)    na = sa;  else if (!(sa & ~FFESYMBOL_attrsTYPE))    {      if (ffeintrin_is_intrinsic (ffelex_token_text (name), name, TRUE,				  &gen, &spec, &imp, &kind)	  && ((imp == FFEINTRIN_impNONE)#if 0	/* Don't bother with this for now. */	      || ((ffeintrin_basictype (spec)		   == ffesymbol_basictype (s))		  && (ffeintrin_kindtype (spec)		      == ffesymbol_kindtype (s)))#else	      || 1#endif	      || !(sa & FFESYMBOL_attrsTYPE)))	na = sa | FFESYMBOL_attrsINTRINSIC;      else if (kind == FFEINFO_kindANY)	{			/* Already diagnosed. */	  na = sa | FFESYMBOL_attrsINTRINSIC | FFESYMBOL_attrsANY;	  ffesymbol_set_attrs (s, na);	  ffesymbol_set_state (s, FFESYMBOL_stateUNDERSTOOD);	  ffesymbol_set_info (s, ffeinfo_new_any ());	}      else	na = FFESYMBOL_attrsetNONE;    }  else    na = FFESYMBOL_attrsetNONE;  /* Now see what we've got for a new object: NONE means a new error cropped     up; ANY means an old error to be ignored; otherwise, everything's ok,     update the object (symbol) and continue on. */  if (na == FFESYMBOL_attrsetNONE)    ffesymbol_error (s, name);  else if (!(na & FFESYMBOL_attrsANY))    {      ffesymbol_set_attrs (s, na);      ffesymbol_set_state (s, FFESYMBOL_stateUNDERSTOOD);      ffesymbol_set_generic (s, gen);      ffesymbol_set_specific (s, spec);      ffesymbol_set_implementation (s, imp);      ffesymbol_set_info (s,			  ffeinfo_new (FFEINFO_basictypeNONE,				       FFEINFO_kindtypeNONE,				       0,				       kind,				       FFEINFO_whereINTRINSIC,				       FFETARGET_charactersizeNONE));      ffesymbol_set_explicitwhere (s, TRUE);    }  ffesymbol_signal_unreported (s);  ffestd_R1208_item (name);}