In gcc/fortran/ fixed some cosmetics.

	* trans-decl.c (gfc_finish_var_decl): Fixed moved comment.
	* trans-stmt.c (gfc_trans_allocate): Fixed indentation.

From-SVN: r220032

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6b30eb272aeccc7bad6907cee9c7fe8fb8ef9090..6e17a653be5c788b8b5bc25a7e183d013c95f78c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+
+2015-01-23  Andre Vehreschild  <vehre@gmx.de>
+
+       * trans-decl.c (gfc_finish_var_decl): Fixed moved comment.
+       * trans-stmt.c (gfc_trans_allocate): Fixed indentation.
+
 2015-01-23  Jakub Jelinek  <jakub@redhat.com>
 
        * gfc-diagnostic.def (DK_ICE_NOBT): New kind.

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 5beb6f73fb1039457efad76bc9492aa9f2a383c6..8a65d2bef8f5b8b0cebe211a6c513119a1a61bba 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -558,17 +558,18 @@ static void
 gfc_finish_var_decl (tree decl, gfc_symbol * sym)
 {
   tree new_type;
-  /* TREE_ADDRESSABLE means the address of this variable is actually needed.
-     This is the equivalent of the TARGET variables.
-     We also need to set this if the variable is passed by reference in a
-     CALL statement.  */
 
   /* Set DECL_VALUE_EXPR for Cray Pointees.  */
   if (sym->attr.cray_pointee)
     gfc_finish_cray_pointee (decl, sym);
 
+  /* TREE_ADDRESSABLE means the address of this variable is actually needed.
+     This is the equivalent of the TARGET variables.
+     We also need to set this if the variable is passed by reference in a
+     CALL statement.  */
   if (sym->attr.target)
     TREE_ADDRESSABLE (decl) = 1;
+
   /* If it wasn't used we wouldn't be getting it.  */
   TREE_USED (decl) = 1;
 

diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index a9cbe43b2a9691cdf3599212478d33e4f7d7ae51..52caaa4a8cb3bf7b888446b17dc1848047ab3547 100644 (file)
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -5150,7 +5150,7 @@ gfc_trans_allocate (gfc_code * code)
              if (unlimited_char)
                tmp = TREE_TYPE (gfc_typenode_for_spec (&code->expr3->ts));
              else
-             tmp = TREE_TYPE (gfc_typenode_for_spec (&al->expr->ts));
+               tmp = TREE_TYPE (gfc_typenode_for_spec (&al->expr->ts));
              tmp = TYPE_SIZE_UNIT (tmp);
              memsz = fold_build2_loc (input_location, MULT_EXPR,
                                       TREE_TYPE (tmp), tmp,