gcc/fortran/match.c

2764      EVENT POST ( event-variable [, sync-stat-list] )
2767       wait-spec-list  is  sync-stat-list  or until-spec
2769       sync-stat  is  STAT= or ERRMSG=.  */
2775   gfc_expr *tmp, *eventvar, *until_count, *stat, *errmsg;
2778   tmp = eventvar = until_count = stat = errmsg = NULL;
2828       m = gfc_match (" stat = %v", &tmp);
2838 	  stat = tmp;
2915   new_st.expr2 = stat;
2929   if (stat != tmp)
2930     gfc_free_expr (stat);
2961      LOCK ( lock-variable [ , lock-stat-list ] )
2962      UNLOCK ( lock-variable [ , sync-stat-list ] )
2963    where lock-stat is ACQUIRED_LOCK or sync-stat
2964    and sync-stat is STAT= or ERRMSG=.  */
2970   gfc_expr *tmp, *lockvar, *acq_lock, *stat, *errmsg;
2973   tmp = lockvar = acq_lock = stat = errmsg = NULL;
3023       m = gfc_match (" stat = %v", &tmp);
3033 	  stat = tmp;
3110   new_st.expr2 = stat;
3124   if (stat != tmp)
3125     gfc_free_expr (stat);
3155      SYNC ALL [(sync-stat-list)]
3156      SYNC MEMORY [(sync-stat-list)]
3157      SYNC IMAGES (image-set [, sync-stat-list] )
3158    with sync-stat is int-expr or *.  */
3164   gfc_expr *tmp, *imageset, *stat, *errmsg;
3167   tmp = imageset = stat = errmsg = NULL;
3235       m = gfc_match (" stat = %v", &tmp);
3245 	  stat = tmp;
3298   new_st.expr2 = stat;
3307   if (stat != tmp)
3308     gfc_free_expr (stat);
3571   gfc_expr *stat, *errmsg, *tmp, *source, *mold;
3580   stat = errmsg = source = mold = tmp = NULL;
3744       m = gfc_match (" stat = %v", &tmp);
3756 	  stat = tmp;
3760 	  if (gfc_check_do_variable (stat->symtree))
3899   new_st.expr1 = stat;
3916   gfc_free_expr (stat);
4003   gfc_expr *stat, *errmsg, *tmp;
4009   stat = errmsg = tmp = NULL;
4082       m = gfc_match (" stat = %v", &tmp);
4094 	  stat = tmp;
4097 	  if (gfc_check_do_variable (stat->symtree))
4136   new_st.expr1 = stat;
4147   gfc_free_expr (stat);