case FFESTV_stateFUNCTION1:
ffestc_order_format_ (){  recurse:  switch (ffestw_state (ffestw_stack_top ()))    {    case FFESTV_stateNIL:      ffestc_shriek_begin_program_ ();      goto recurse;		/* :::::::::::::::::::: */    case FFESTV_statePROGRAM0:    case FFESTV_statePROGRAM1:      ffestw_update (NULL);      ffestw_set_state (ffestw_stack_top (), FFESTV_statePROGRAM2);      return FFESTC_orderOK_;    case FFESTV_stateSUBROUTINE0:    case FFESTV_stateSUBROUTINE1:      ffestw_update (NULL);      ffestw_set_state (ffestw_stack_top (), FFESTV_stateSUBROUTINE2);      return FFESTC_orderOK_;    case FFESTV_stateFUNCTION0:    case FFESTV_stateFUNCTION1:      ffestw_update (NULL);      ffestw_set_state (ffestw_stack_top (), FFESTV_stateFUNCTION2);      return FFESTC_orderOK_;    case FFESTV_statePROGRAM2:    case FFESTV_stateSUBROUTINE2:    case FFESTV_stateFUNCTION2:    case FFESTV_statePROGRAM3:    case FFESTV_stateSUBROUTINE3:    case FFESTV_stateFUNCTION3:    case FFESTV_statePROGRAM4:    case FFESTV_stateSUBROUTINE4:    case FFESTV_stateFUNCTION4:    case FFESTV_stateWHERETHEN:    case FFESTV_stateIFTHEN:    case FFESTV_stateDO:    case FFESTV_stateSELECT0:    case FFESTV_stateSELECT1:      return FFESTC_orderOK_;    case FFESTV_stateUSE:#if FFESTR_F90      ffestc_shriek_end_uses_ (TRUE);#endif      goto recurse;		/* :::::::::::::::::::: */    case FFESTV_stateWHERE:      ffestc_order_bad_ ();#if FFESTR_F90      ffestc_shriek_where_ (FALSE);#endif      return FFESTC_orderBAD_;    case FFESTV_stateIF:      ffestc_order_bad_ ();      ffestc_shriek_if_ (FALSE);      return FFESTC_orderBAD_;    default:      ffestc_order_bad_ ();      return FFESTC_orderBAD_;    }}