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

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

From-SVN: r46328

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index b064088ac204f33d90f3c7823f8331dcd8d9609a..10a09c69cd3273ccf87dd8b9d3c74b8b8d67c50c 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+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,

diff --git a/gcc/f/std.c b/gcc/f/std.c
index b8e3b39f6b430f03083c94b949be8842a42a4429..db8c723cf9ed0e28b7ba73e6a3e371c809f59fe1 100644 (file)
--- a/gcc/f/std.c
+++ b/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);