std.c (ffestd_labeldef_format): Fix variable/stmt ordering.

        * std.c (ffestd_labeldef_format): Fix variable/stmt ordering.
        (ffestd_R737A): Likewise.

From-SVN: r46328

gcc/f/ChangeLog

 2001-10-17  Richard Henderson  <rth@redhat.com>
 
+	* std.c (ffestd_labeldef_format): Fix variable/stmt ordering.
+	(ffestd_R737A): Likewise.
+
+2001-10-17  Richard Henderson  <rth@redhat.com>
+
 	* com.h: Remove FFECOM_targetCURRENT, FFECOM_ONEPASS, BUILT_FOR_270,
 	BUILT_FOR_280, FFECOM_GCC_INCLUDE, all derivitive defines, and all
 	related conditional compilation directives.

gcc/f/std.c

@@ -1503,10 +1503,10 @@ ffestd_labeldef_branch (ffelab label)
 void
 ffestd_labeldef_format (ffelab label)
 {
-  ffestd_label_formatdef_ = label;
-
   ffestdStmt_ stmt;
 
+  ffestd_label_formatdef_ = label;
+
   stmt = ffestd_stmt_new_ (FFESTD_stmtidFORMATLABEL_);
   ffestd_stmt_append_ (stmt);
   stmt->u.formatlabel.label = label;
@@ -2441,10 +2441,10 @@ ffestd_R625 (ffesttExprList exprlist, ffebld stat)
 void
 ffestd_R737A (ffebld dest, ffebld source)
 {
-  ffestd_check_simple_ ();
-
   ffestdStmt_ stmt;
 
+  ffestd_check_simple_ ();
+
   stmt = ffestd_stmt_new_ (FFESTD_stmtidR737A_);
   ffestd_stmt_append_ (stmt);
   ffestd_subr_line_save_ (stmt);