|| (ffesymbol_where (s) != FFEINFO_whereNONE)))
|| ((ffesymbol_where (s) != FFEINFO_whereNONE) && (ffesymbol_where (s) != FFEINFO_whereINTRINSIC))))
ffecom_finish_symbol_transform_ (ffesymbol s){  if (s == NULL)    return s;  /* It's easy to know to transform an untransformed symbol, to make sure     we put out debugging info for it.  But COMMON variables, unlike     EQUIVALENCE ones, aren't given declarations in addition to the     tree expressions that specify offsets, because COMMON variables     can be referenced in the outer scope where only dummy arguments     (PARM_DECLs) should really be seen.  To be safe, just don't do any     VAR_DECLs for COMMON variables when we transform them for real     use, and therefore we do all the VAR_DECL creating here.  */  if ((ffesymbol_hook (s).decl_tree == NULL_TREE)      && ((ffesymbol_kind (s) != FFEINFO_kindNONE)	  || (ffesymbol_where (s) != FFEINFO_whereNONE)))    /* Not transformed, and not CHARACTER*(*). */    s = ffecom_sym_transform_ (s);  if ((ffesymbol_where (s) == FFEINFO_whereCOMMON)      && (ffesymbol_hook (s).decl_tree != error_mark_node))    {#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING      int yes = suspend_momentary ();      /* This isn't working, at least for dbxout.  The .s file looks	 okay to me (burley), but in gdb 4.9 at least, the variables	 appear to reside somewhere outside of the common area, so	 it doesn't make sense to mislead anyone by generating the info	 on those variables until this is fixed.  NOTE: Same problem	 with EQUIVALENCE, sadly...see similar #if later.  */      ffecom_member_phase2_ (ffesymbol_storage (ffesymbol_common (s)),			     ffesymbol_storage (s));      resume_momentary (yes);#endif    }  return s;}