2007-01-07 Bernhard Fischer <aldot@gcc.gnu.org>

        * data.c (gfc_assign_data_value): Fix whitespace.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6b03a759bc182907e2dfb4b35b7aae5197b9b30a..abab9056a5a1d381ed869693603485091416b329 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-07  Bernhard Fischer  <aldot@gcc.gnu.org>
+
+       * data.c (gfc_assign_data_value): Fix whitespace.
+
 2007-01-07  Bernhard Fischer  <aldot@gcc.gnu.org>
 
        * trans-array.c (gfc_trans_create_temp_array, gfc_array_init_size):

diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c
index a7a04c662f024055e240a0a326daac00498e0ad0..4a3ce78b1373a9c09b5702b1cf287632195a289a 100644 (file)
--- a/gcc/fortran/data.c
+++ b/gcc/fortran/data.c
@@ -386,7 +386,7 @@ gfc_assign_data_value (gfc_expr * lvalue, gfc_expr * rvalue, mpz_t index)
                    init : rvalue;
 #endif
          gfc_notify_std (GFC_STD_GNU, "Extension: re-initialization "
-                         "of '%s' at %L",  symbol->name, &expr->where);
+                         "of '%s' at %L", symbol->name, &expr->where);
        }
 
       expr = gfc_copy_expr (rvalue);