2007-02-21 Christopher D. Rickett <crickett@lanl.gov>

        * fortran/symbol.c: Whitespace fixes.
        * fortran/decl.c: Ditto.



git-svn-id: https://gcc.gnu.org/svn/gcc/branches/fortran-experiments@122204 138bc75d-0d04-0410-961f-82ee72b054a4

3 files changed, 31 insertions, 28 deletions

diff --git a/gcc/fortran/ChangeLog.isocbinding b/gcc/fortran/ChangeLog.isocbinding
index e57ecc7e420..add49eada41 100644
--- a/gcc/fortran/ChangeLog.isocbinding
+++ b/gcc/fortran/ChangeLog.isocbinding
@@ -4,6 +4,11 @@ Please comment here the changes you make to the code, dated with every
 commit to the branch, so that we don't get lost.
 
 2007-02-21  Christopher D. Rickett  <crickett@lanl.gov>
+
+	* fortran/symbol.c: Whitespace fixes.
+	* fortran/decl.c: Ditto.
+
+2007-02-21  Christopher D. Rickett  <crickett@lanl.gov>
 	* testsuite/gfortran.dg/c_loc_tests_2.f03: New test case for
 	the c_loc function.
 	* testsuite/gfortran.dg/bind_c_implicit_vars.f03: New test
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 3d1e22802b0..a453f21b03d 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -730,34 +730,32 @@ verify_c_interop_param (gfc_symbol *sym)
   if (sym->attr.implicit_type)
     return SUCCESS;
 
-  /* see if we've stored a reference to a procedure that owns sym */
+  /* See if we've stored a reference to a procedure that owns sym.  */
   if (sym->ns != NULL && sym->ns->proc_name != NULL)
     {
       if (sym->ns->proc_name->attr.is_bind_c == 1)
 	{
-          is_c_interop =
-            (verify_c_interop (&(sym->ts), sym->name, &(sym->declared_at))
-             == SUCCESS ? 1 : 0);
+	  is_c_interop =
+	    (verify_c_interop (&(sym->ts), sym->name, &(sym->declared_at))
+	     == SUCCESS ? 1 : 0);
 
 	  if (is_c_interop != 1)
 	    {
-	      /* make personalized messages to give better feedback */
+	      /* Make personalized messages to give better feedback.  */
 	      if (sym->ts.type == BT_DERIVED)
 		gfc_warning ("Type '%s' at %L "
-				 "is a parameter to the BIND(C) procedure"
-				 "'%s' but may not be C interoperable "
-				 "because derived type '%s' is not C "
-				 "interoperable",
-                             sym->name, &(sym->declared_at),
-                             sym->ns->proc_name->name, 
-				 sym->ts.derived->name);
+			     "is a parameter to the BIND(C) procedure '%s' "
+		    	     "but may not be C interoperable because "
+			     "derived type '%s' is not C interoperable",
+			     sym->name, &(sym->declared_at),
+			     sym->ns->proc_name->name, 
+			     sym->ts.derived->name);
 	      else
 		gfc_warning ("Variable '%s' at %L "
-				 "is a parameter to the BIND(C) procedure "
-				 "'%s' but "
-				 "may not be C interoperable",
-                             sym->name, &(sym->declared_at),
-                             sym->ns->proc_name->name);
+			     "is a parameter to the BIND(C) procedure '%s' "
+			     "but may not be C interoperable",
+			     sym->name, &(sym->declared_at),
+			     sym->ns->proc_name->name);
 	    }
 	 
 	  /* We have to make sure that any param to a bind(c) routine does
@@ -2762,14 +2760,14 @@ verify_c_interop (gfc_typespec *ts, const char *name, locus *where)
     {
       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",
-                         gfc_basic_typename (ts->f90_type),
-                         name, where, 
-                         gfc_basic_typename (ts->type));
-        }
+	{
+	  /* 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",
+			 gfc_basic_typename (ts->f90_type),
+			 name, where, 
+			 gfc_basic_typename (ts->type));
+	}
     }
 
   /* Make sure the kind is C interoperable.  This does not care about the
@@ -2796,7 +2794,7 @@ verify_com_block_vars_c_interop (gfc_common_head *com_block)
 
   curr_sym = com_block->head;
   
-  /* make sure we have at least one symbol */
+  /* Make sure we have at least one symbol.  */
   if (curr_sym == NULL)
     return retval;
 
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index b1a932908f1..9bc115d201b 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -2960,8 +2960,8 @@ verify_bind_c_derived_type (gfc_symbol *derived_sym)
     {
       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;
     }