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

        (ffestd_R737A): Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46328 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index b064088..10a09c6 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,5 +1,10 @@
 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.

diff --git a/gcc/f/std.c b/gcc/f/std.c
index b8e3b39..db8c723 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);