* intrinsics/c99_functions.c, intrinsics/eoshift0.c,

        intrinsics/eoshift2.c, intrinsics/exit.c, intrinsics/flush.c,
        intrinsics/ishftc.c, intrinsics/mvbits.c, intrinsics/pack_generic.c,
        intrinsics/random.c, intrinsics/reshape_generic.c, intrinsics/size.c,
        intrinsics/spread_generic.c, intrinsics/stat.c,
	intrinsics/string_intrinsics.c, intrinsics/system_clock.c,
        intrinsics/transpose_generic.c, intrinsics/unlink.c,
        intrinsics/unpack_generic.c, io/backspace.c, io/format.c,
        io/list_read.c, io/lock.c, io/open.c, io/transfer.c, io/unix.c,
        io/write.c, runtime/environ.c, runtime/error.c,
        runtime/in_pack_generic.c, runtime/in_unpack_generic.c, runtime/main.c,
        runtime/memory.c, runtime/pause.c, runtime/stop.c,
        runtime/string.c: Whitespace fixes.


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

18 files changed, 3 insertions, 35 deletions

diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index 2c11ceb6a89..617e0d57ecb 100644
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -322,4 +322,3 @@ roundf(float x)
     }
 }
 #endif
-
diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c
index fca1ef08fff..2f7a0338461 100644
--- a/libgfortran/intrinsics/eoshift0.c
+++ b/libgfortran/intrinsics/eoshift0.c
@@ -204,4 +204,3 @@ __eoshift0_8 (gfc_array_char * ret, const gfc_array_char * array,
 {
   __eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
 }
-
diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c
index 18c3f558ae0..c89c5c59d90 100644
--- a/libgfortran/intrinsics/eoshift2.c
+++ b/libgfortran/intrinsics/eoshift2.c
@@ -220,4 +220,3 @@ __eoshift2_8 (gfc_array_char * ret, const gfc_array_char * array,
 {
   __eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
 }
-
diff --git a/libgfortran/intrinsics/exit.c b/libgfortran/intrinsics/exit.c
index 6ae4dfdf335..f15d56787bf 100644
--- a/libgfortran/intrinsics/exit.c
+++ b/libgfortran/intrinsics/exit.c
@@ -33,7 +33,6 @@ Boston, MA 02111-1307, USA.  */
 void
 prefix(exit_i4) (GFC_INTEGER_4 * status)
 {
-
   if (status == NULL)
     exit(0);
   exit(*status);
@@ -42,7 +41,6 @@ prefix(exit_i4) (GFC_INTEGER_4 * status)
 void
 prefix(exit_i8) (GFC_INTEGER_8 * status)
 {
-
   if (status == NULL)
     exit(0);
   exit((int) *status);
diff --git a/libgfortran/intrinsics/flush.c b/libgfortran/intrinsics/flush.c
index 4603d709f48..5f75195b9e4 100644
--- a/libgfortran/intrinsics/flush.c
+++ b/libgfortran/intrinsics/flush.c
@@ -48,7 +48,6 @@ recursive_flush (gfc_unit *us)
 void
 prefix(flush_i4) (GFC_INTEGER_4 * unit)
 {
-
   gfc_unit *us;
 
   /* flush all streams */
diff --git a/libgfortran/intrinsics/ishftc.c b/libgfortran/intrinsics/ishftc.c
index 0bb3d422eb2..2677c3313f9 100644
--- a/libgfortran/intrinsics/ishftc.c
+++ b/libgfortran/intrinsics/ishftc.c
@@ -61,4 +61,3 @@ ishftc8 (GFC_INTEGER_8 i, GFC_INTEGER_8 shift, GFC_INTEGER_8 size)
   bits = i & ~mask;
   return (i & mask) | (bits >> (size - shift)) | ((i << shift) & ~mask);
 }
-
diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c
index 683b9b21069..97fdc41177c 100644
--- a/libgfortran/intrinsics/mvbits.c
+++ b/libgfortran/intrinsics/mvbits.c
@@ -60,4 +60,3 @@ SUB_NAME (const TYPE *from, const GFC_INTEGER_4 *frompos,
 #  undef TYPE
 #  undef UTYPE
 #endif
-
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c
index 301948e7e86..da0bc579827 100644
--- a/libgfortran/intrinsics/pack_generic.c
+++ b/libgfortran/intrinsics/pack_generic.c
@@ -123,7 +123,6 @@ __pack (gfc_array_char * ret, const gfc_array_char * array,
 
       if (vector != NULL) 
 	{ 
-
 	  /* The return array will have as many
 	     elements as there are in VECTOR.  */ 
 	  total = vector->dim[0].ubound + 1 - vector->dim[0].lbound; 
diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c
index b4986840583..2cc5d20372d 100644
--- a/libgfortran/intrinsics/random.c
+++ b/libgfortran/intrinsics/random.c
@@ -485,7 +485,6 @@ prefix(random_r8) (GFC_REAL_8 *x)
 void
 prefix(arandom_r4) (gfc_array_r4 *x)
 {
-
   index_type count[GFC_MAX_DIMENSIONS - 1];
   index_type extent[GFC_MAX_DIMENSIONS - 1];
   index_type stride[GFC_MAX_DIMENSIONS - 1];
@@ -550,7 +549,6 @@ prefix(arandom_r4) (gfc_array_r4 *x)
 void
 prefix(arandom_r8) (gfc_array_r8 *x)
 {
-
   index_type count[GFC_MAX_DIMENSIONS - 1];
   index_type extent[GFC_MAX_DIMENSIONS - 1];
   index_type stride[GFC_MAX_DIMENSIONS - 1];
@@ -614,10 +612,8 @@ prefix(arandom_r8) (gfc_array_r8 *x)
    must be called with no argument or exactly one argument.  */
 
 void
-random_seed (GFC_INTEGER_4 *size, gfc_array_i4 * put, 
-		     gfc_array_i4 * get)
+random_seed (GFC_INTEGER_4 *size, gfc_array_i4 *put, gfc_array_i4 *get)
 {
-
   int i;
 
   if (size == NULL && put == NULL && get == NULL)
@@ -670,5 +666,3 @@ random_seed (GFC_INTEGER_4 *size, gfc_array_i4 * put,
         get->data[i * get->dim[0].stride] = (GFC_INTEGER_4) kiss_seed[i];
     }
 }
-
-
diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c
index ca6f6aacd00..5314456ca26 100644
--- a/libgfortran/intrinsics/reshape_generic.c
+++ b/libgfortran/intrinsics/reshape_generic.c
@@ -228,4 +228,3 @@ __reshape (parray * ret, parray * source, shape_type * shape,
         }
     }
 }
-
diff --git a/libgfortran/intrinsics/size.c b/libgfortran/intrinsics/size.c
index c4c792d6c75..f83f6c0162e 100644
--- a/libgfortran/intrinsics/size.c
+++ b/libgfortran/intrinsics/size.c
@@ -50,4 +50,3 @@ index_type size1 (const array_t * array, index_type dim)
     size = 0;
   return size;
 }
-
diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c
index a789c98448b..f65f869d3b0 100644
--- a/libgfortran/intrinsics/spread_generic.c
+++ b/libgfortran/intrinsics/spread_generic.c
@@ -115,4 +115,3 @@ __spread (const gfc_array_char * ret, const gfc_array_char * source,
         }
     }
 }
-
diff --git a/libgfortran/intrinsics/stat.c b/libgfortran/intrinsics/stat.c
index e597e44aa1c..8f250d460f0 100644
--- a/libgfortran/intrinsics/stat.c
+++ b/libgfortran/intrinsics/stat.c
@@ -56,7 +56,6 @@ void
 prefix(stat_i4_sub) (char * name, gfc_array_i4 * sarray,
                      GFC_INTEGER_4 * status,  gfc_charlen_type name_len)
 {
- 
   int val;
   char *str;
   struct stat sb;
@@ -147,7 +146,6 @@ void
 prefix(stat_i8_sub) (char * name, gfc_array_i8 * sarray,
                      GFC_INTEGER_8 * status, gfc_charlen_type name_len)
 {
- 
   int val;
   char *str;
   struct stat sb;
@@ -250,7 +248,6 @@ GFC_INTEGER_8
 prefix(stat_i8) (char * name, gfc_array_i8 * sarray,
                  gfc_charlen_type name_len)
 {
-
   GFC_INTEGER_8 val;
   prefix(stat_i8_sub) (name, sarray, &val, name_len);
   return val;
@@ -271,7 +268,6 @@ void
 prefix(fstat_i4_sub) (GFC_INTEGER_4 * unit, gfc_array_i4 * sarray,
                      GFC_INTEGER_4 * status)
 {
- 
   int val;
   struct stat sb;
 
@@ -355,7 +351,6 @@ void
 prefix(fstat_i8_sub) (GFC_INTEGER_8 * unit, gfc_array_i8 * sarray,
                      GFC_INTEGER_8 * status)
 {
- 
   int val;
   struct stat sb;
 
@@ -439,7 +434,6 @@ prefix(fstat_i8_sub) (GFC_INTEGER_8 * unit, gfc_array_i8 * sarray,
 GFC_INTEGER_4
 prefix(fstat_i4) (GFC_INTEGER_4 * unit, gfc_array_i4 * sarray)
 {
-
   GFC_INTEGER_4 val;
   prefix(fstat_i4_sub) (unit, sarray, &val);
   return val;
@@ -449,7 +443,6 @@ prefix(fstat_i4) (GFC_INTEGER_4 * unit, gfc_array_i4 * sarray)
 GFC_INTEGER_8
 prefix(fstat_i8) (GFC_INTEGER_8 * unit, gfc_array_i8 * sarray)
 {
-
   GFC_INTEGER_8 val;
   prefix(fstat_i8_sub) (unit, sarray, &val);
   return val;
diff --git a/libgfortran/intrinsics/string_intrinsics.c b/libgfortran/intrinsics/string_intrinsics.c
index ac70a9bb873..53d9b4e9902 100644
--- a/libgfortran/intrinsics/string_intrinsics.c
+++ b/libgfortran/intrinsics/string_intrinsics.c
@@ -168,7 +168,8 @@ concat_string (GFC_INTEGER_4 destlen, char * dest,
 /* Return string with all trailing blanks removed.  */
 
 void
-string_trim (GFC_INTEGER_4 * len, void ** dest, GFC_INTEGER_4 slen, const char * src)
+string_trim (GFC_INTEGER_4 * len, void ** dest, GFC_INTEGER_4 slen,
+	     const char * src)
 {
   int i;
 
@@ -392,4 +393,3 @@ string_repeat (char * dest, GFC_INTEGER_4 slen,
       memmove (dest + (i * slen), src, slen);
     }
 }
-
diff --git a/libgfortran/intrinsics/system_clock.c b/libgfortran/intrinsics/system_clock.c
index 6b6ae9d06a3..d11d1a99d35 100644
--- a/libgfortran/intrinsics/system_clock.c
+++ b/libgfortran/intrinsics/system_clock.c
@@ -197,4 +197,3 @@ prefix(system_clock_8)(GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate,
   if (count_max != NULL)
     *count_max = mx;
 }
-
diff --git a/libgfortran/intrinsics/transpose_generic.c b/libgfortran/intrinsics/transpose_generic.c
index b9bdbe4a041..ad08ea7893a 100644
--- a/libgfortran/intrinsics/transpose_generic.c
+++ b/libgfortran/intrinsics/transpose_generic.c
@@ -88,4 +88,3 @@ __transpose (gfc_array_char * ret, gfc_array_char * source)
       rptr += rxstride - (rystride * xcount);
     }
 }
-
diff --git a/libgfortran/intrinsics/unlink.c b/libgfortran/intrinsics/unlink.c
index 11c35099a90..7ea2a1002a3 100644
--- a/libgfortran/intrinsics/unlink.c
+++ b/libgfortran/intrinsics/unlink.c
@@ -63,9 +63,7 @@ void
 prefix(unlink_i8_sub) (char * name, GFC_INTEGER_8 * status,
 		               gfc_charlen_type name_len)
 {
-
   GFC_INTEGER_4 status4;
-
   prefix (unlink_i4_sub) (name, &status4, name_len);
   if (status)
     *status = status4;
@@ -82,4 +80,3 @@ prefix(unlink) (char * name, gfc_charlen_type name_len)
   prefix(unlink_i4_sub) (name, &status, name_len);
   return status;
 }
-
diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c
index 3d02a3e6060..a301b58d46b 100644
--- a/libgfortran/intrinsics/unpack_generic.c
+++ b/libgfortran/intrinsics/unpack_generic.c
@@ -82,7 +82,6 @@ __unpack1 (const gfc_array_char * ret, const gfc_array_char * vector,
   mptr = mask->data;
   vptr = vector->data;
 
-
   /* Use the same loop for both logical types. */
   if (GFC_DESCRIPTOR_SIZE (mask) != 4)
     {
@@ -151,4 +150,3 @@ __unpack0 (const gfc_array_char * ret, const gfc_array_char * vector,
   tmp.data = field;
   __unpack1 (ret, vector, mask, &tmp);
 }
-