trans-decl.c, [...]: Add and remove blank lines as required.

* trans-decl.c, trans-types.c: Add and remove blank lines as
required.

From-SVN: r86505

gcc/fortran/ChangeLog

+2004-08-24  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* trans-decl.c, trans-types.c: Add and remove blank lines as 
+	required.
+
 2004-08-24  Richard Henderson  <rth@redhat.com>
 
 	* trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning.

gcc/fortran/trans-decl.c

@@ -220,7 +220,6 @@ gfc_get_return_label (void)
 tree
 gfc_get_label_decl (gfc_st_label * lp)
 {
-
   if (lp->backend_decl)
     return lp->backend_decl;
   else
@@ -258,7 +257,6 @@ gfc_get_label_decl (gfc_st_label * lp)
 static tree
 gfc_sym_identifier (gfc_symbol * sym)
 {
-
   return (get_identifier (sym->name));
 }
 
@@ -428,7 +426,6 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym)
 void
 gfc_allocate_lang_decl (tree decl)
 {
-
   DECL_LANG_SPECIFIC (decl) = (struct lang_decl *)
     ggc_alloc_cleared (sizeof (struct lang_decl));
 }

gcc/fortran/trans-types.c

@@ -903,7 +903,6 @@ gfc_get_array_type_bounds (tree etype, int dimen, tree * lbound,
 static tree
 gfc_build_pointer_type (gfc_symbol * sym, tree type)
 {
-
   /* Array pointer types aren't actually pointers.  */
   if (sym->attr.dimension)
     return type;
@@ -1377,6 +1376,7 @@ tree
 gfc_unsigned_type (tree type)
 {
   tree type1 = TYPE_MAIN_VARIANT (type);
+
   if (type1 == signed_char_type_node || type1 == char_type_node)
     return unsigned_char_type_node;
   if (type1 == integer_type_node)
@@ -1413,6 +1413,7 @@ tree
 gfc_signed_type (tree type)
 {
   tree type1 = TYPE_MAIN_VARIANT (type);
+
   if (type1 == unsigned_char_type_node || type1 == char_type_node)
     return signed_char_type_node;
   if (type1 == unsigned_type_node)