fortran-experiments patch: whitespace fixes

[Christopher D. Rickett]

hi all,

the following patch contains whitespace fixes.  bootstrapped and regtested 
on x86 with no new failures.

Chris


ChangeLog entry:

2007-02-07  Christopher D. Rickett  <crickett@lanl.gov>
 	* gcc/fortran/symbol.c: Whitespace fixes.
 	* gcc/fortran/decl.c: Ditto.


patch:

Index: gcc/testsuite/gfortran.dg/c_ptr_tests.f90
===================================================================
Index: gcc/fortran/symbol.c
===================================================================
--- gcc/fortran/symbol.c	(revision 121696)
+++ gcc/fortran/symbol.c	(working copy)
@@ -2901,8 +2901,8 @@ verify_bind_c_derived_type (gfc_symbol *
      {
        derived_sym->ts.is_c_interop = 0;
        gfc_error_now ("Derived type '%s' declared at %L must have the BIND 
"
-                 "attribute to be C interoperable", derived_sym->name,
-                 &(derived_sym->declared_at));
+                     "attribute to be C interoperable", 
derived_sym->name,
+                     &(derived_sym->declared_at));
        retval = FAILURE;
      }

Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c	(revision 121696)
+++ gcc/fortran/decl.c	(working copy)
@@ -733,12 +733,12 @@ verify_c_interop_param (gfc_symbol *sym)
              (verify_c_interop (&(sym->ts), sym->name, &gfc_current_locus)
               == SUCCESS ? 1 : 0);

-	  if (is_c_interop != 1)
+          if (is_c_interop != 1)
  	    {
  	      /* make personalized messages to give better feedback */
  	      if (sym->ts.type == BT_DERIVED)
  		gfc_warning_now ("Type '%s' at %C "
-				 "is a parameter to the BIND(C) procedure"
+				 "is a parameter to the BIND(C) procedure 
"
  				 "'%s' but may not be C interoperable "
  				 "because derived type '%s' is not C "
  				 "interoperable",
@@ -1565,10 +1565,10 @@ variable_decl (int elem)
               is BIND(C).  It is not possible for this to succeed if
               the verify_bind_c_derived_type failed, so don't have to 
handle
               any error returned by verify_bind_c_derived_type.  */
-	      t = verify_bind_c_sym (sym, &(sym->ts), sym->attr.in_common,
-				     sym->common_block);
-	    }
+          t = verify_bind_c_sym (sym, &(sym->ts), sym->attr.in_common,
+                                 sym->common_block);
  	}
+    }

    m = (t == SUCCESS) ? MATCH_YES : MATCH_ERROR;

@@ -2784,7 +2784,7 @@ verify_c_interop (gfc_typespec *ts, cons
      {
        t = gfc_validate_c_kind(ts);
        if (t != SUCCESS)
-{
+        {
            /* print error, but continue parsing line */
            gfc_error_now ("C kind parameter is for type %s but "
                           "symbol '%s' at %L is of type %s",
@@ -2870,9 +2870,9 @@ verify_bind_c_sym (gfc_symbol *tmp_sym,
                                 tmp_sym->name, &(tmp_sym->declared_at));
                else
                  gfc_warning ("Variable '%s' at %L "
-                                 "may not be a C interoperable "
-                                 "kind but it is bind(c)",
-                                 tmp_sym->name, &(tmp_sym->declared_at));
+                             "may not be a C interoperable "
+                             "kind but it is bind(c)",
+                             tmp_sym->name, &(tmp_sym->declared_at));
  	    }
  	}