OSDN Git Service

Remove extra whitespace.
authoraj <aj@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 15 May 2005 12:49:45 +0000 (12:49 +0000)
committeraj <aj@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 15 May 2005 12:49:45 +0000 (12:49 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99720 138bc75d-0d04-0410-961f-82ee72b054a4

15 files changed:
libgfortran/generated/matmul_c4.c
libgfortran/generated/matmul_c8.c
libgfortran/generated/matmul_i4.c
libgfortran/generated/matmul_i8.c
libgfortran/generated/matmul_l4.c
libgfortran/generated/matmul_l8.c
libgfortran/generated/matmul_r4.c
libgfortran/generated/matmul_r8.c
libgfortran/intrinsics/etime.c
libgfortran/intrinsics/random.c
libgfortran/io/io.h
libgfortran/io/list_read.c
libgfortran/io/transfer.c
libgfortran/io/write.c
libgfortran/m4/matmul.m4

index 40930a1..5eb8b44 100644 (file)
@@ -92,12 +92,12 @@ matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) retarray));
       retarray->base = 0;
@@ -157,7 +157,7 @@ matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b)
       /* bystride should never be used for 1-dimensional b.
         in case it is we want it to cause a segfault, rather than
         an incorrect result. */
-      bystride = 0xDEADBEEF; 
+      bystride = 0xDEADBEEF;
       ycount = 1;
     }
   else
index 07b5e96..181f4c9 100644 (file)
@@ -92,12 +92,12 @@ matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) retarray));
       retarray->base = 0;
@@ -157,7 +157,7 @@ matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b)
       /* bystride should never be used for 1-dimensional b.
         in case it is we want it to cause a segfault, rather than
         an incorrect result. */
-      bystride = 0xDEADBEEF; 
+      bystride = 0xDEADBEEF;
       ycount = 1;
     }
   else
index 003163e..f214ba5 100644 (file)
@@ -92,12 +92,12 @@ matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) retarray));
       retarray->base = 0;
@@ -157,7 +157,7 @@ matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b)
       /* bystride should never be used for 1-dimensional b.
         in case it is we want it to cause a segfault, rather than
         an incorrect result. */
-      bystride = 0xDEADBEEF; 
+      bystride = 0xDEADBEEF;
       ycount = 1;
     }
   else
index f88363f..5e0e6a7 100644 (file)
@@ -92,12 +92,12 @@ matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) retarray));
       retarray->base = 0;
@@ -157,7 +157,7 @@ matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b)
       /* bystride should never be used for 1-dimensional b.
         in case it is we want it to cause a segfault, rather than
         an incorrect result. */
-      bystride = 0xDEADBEEF; 
+      bystride = 0xDEADBEEF;
       ycount = 1;
     }
   else
index f9b5cb4..ba43dda 100644 (file)
@@ -83,12 +83,12 @@ matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 ((array_t *) retarray));
       retarray->base = 0;
index 0f04e76..75b4839 100644 (file)
@@ -83,12 +83,12 @@ matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 ((array_t *) retarray));
       retarray->base = 0;
index 7b84eb0..b6014d0 100644 (file)
@@ -92,12 +92,12 @@ matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_REAL_4) * size0 ((array_t *) retarray));
       retarray->base = 0;
@@ -157,7 +157,7 @@ matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b)
       /* bystride should never be used for 1-dimensional b.
         in case it is we want it to cause a segfault, rather than
         an incorrect result. */
-      bystride = 0xDEADBEEF; 
+      bystride = 0xDEADBEEF;
       ycount = 1;
     }
   else
index f2a574b..5bf21f6 100644 (file)
@@ -92,12 +92,12 @@ matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (GFC_REAL_8) * size0 ((array_t *) retarray));
       retarray->base = 0;
@@ -157,7 +157,7 @@ matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b)
       /* bystride should never be used for 1-dimensional b.
         in case it is we want it to cause a segfault, rather than
         an incorrect result. */
-      bystride = 0xDEADBEEF; 
+      bystride = 0xDEADBEEF;
       ycount = 1;
     }
   else
index 1055700..0cb7471 100644 (file)
@@ -94,7 +94,7 @@ etime (gfc_array_r4 *t)
   return val;
 }
 
-/* LAPACK's test programs declares ETIME external, therefore we 
+/* LAPACK's test programs declares ETIME external, therefore we
    need this.  */
 
 extern GFC_REAL_4 etime_ (GFC_REAL_4 *t);
index ed65c99..107eec1 100644 (file)
@@ -621,7 +621,7 @@ arandom_r8 (gfc_array_r8 *x)
 }
 
 /* random_seed is used to seed the PRNG with either a default
-   set of seeds or user specified set of seeds.  random_seed 
+   set of seeds or user specified set of seeds.  random_seed
    must be called with no argument or exactly one argument.  */
 
 void
index d98f28a..62000f1 100644 (file)
@@ -230,7 +230,7 @@ typedef struct
   GFC_INTEGER_4 rec;
   GFC_INTEGER_4 *nextrec, *size;
 
-  GFC_INTEGER_4 recl_in; 
+  GFC_INTEGER_4 recl_in;
   GFC_INTEGER_4 *recl_out;
 
   GFC_INTEGER_4 *iolength;
@@ -343,7 +343,7 @@ typedef struct
   unit_blank blank_status;
   enum {SIGN_S, SIGN_SS, SIGN_SP} sign_status;
   int scale_factor;
-  jmp_buf eof_jump;  
+  jmp_buf eof_jump;
 }
 global_t;
 
index 0e2cb41..b672155 100644 (file)
@@ -1377,11 +1377,11 @@ list_formatted_read (bt type, void *p, int len)
 
     case BT_CHARACTER:
       if (saved_string)
-       { 
+       {
           m = (len < saved_used) ? len : saved_used;
           memcpy (p, saved_string, m);
        }
-      else    
+      else
        /* Just delimiters encountered, nothing to copy but SPACE.  */
         m = 0;
 
@@ -1600,7 +1600,7 @@ nml_parse_qualifier(descriptor_dimension * ad,
 
       /*Check the values of the triplet indices.  */
 
-      if ( (ls[dim].start > (ssize_t)ad[dim].ubound) 
+      if ( (ls[dim].start > (ssize_t)ad[dim].ubound)
        || (ls[dim].start < (ssize_t)ad[dim].lbound)
        || (ls[dim].end   > (ssize_t)ad[dim].ubound)
        || (ls[dim].end   < (ssize_t)ad[dim].lbound))
@@ -1646,7 +1646,7 @@ find_nml_node (char * var_name)
 
 /* Visits all the components of a derived type that have
    not explicitly been identified in the namelist input.
-   touched is set and the loop specification initialised 
+   touched is set and the loop specification initialised
    to default values  */
 
 static void
@@ -1854,7 +1854,7 @@ nml_read_obj (namelist_info * nl, index_type offset)
        pdata = (void*)(pdata + (nl->ls[dim].idx - nl->dim[dim].lbound) *
                 nl->dim[dim].stride * nl->size);
 
-      /* Reset the error flag and try to read next value, if 
+      /* Reset the error flag and try to read next value, if
         repeat_count=0  */
 
       nml_read_error = 0;
@@ -1873,7 +1873,7 @@ nml_read_obj (namelist_info * nl, index_type offset)
 
          saved_type = GFC_DTYPE_UNKNOWN;
          free_saved ();
+
           switch (nl->type)
          {
          case GFC_DTYPE_INTEGER:
@@ -1904,7 +1904,7 @@ nml_read_obj (namelist_info * nl, index_type offset)
 
            /* Now loop over the components. Update the component pointer
               with the return value from nml_write_obj.  This loop jumps
-              past nested derived types by testing if the potential 
+              past nested derived types by testing if the potential
               component name contains '%'.  */
 
            for (cmp = nl->next;
@@ -1940,7 +1940,7 @@ nml_read_obj (namelist_info * nl, index_type offset)
 
       /* The standard permits array data to stop short of the number of
         elements specified in the loop specification.  In this case, we
-        should be here with nml_read_error != 0.  Control returns to 
+        should be here with nml_read_error != 0.  Control returns to
         nml_get_obj_data and an attempt is made to read object name.  */
 
       prev_nl = nl;
index 1122a50..9981a9f 100644 (file)
@@ -168,7 +168,7 @@ read_sf (int *length)
     {
       if (is_internal_unit())
         {
-         /* readlen may be modified inside salloc_r if 
+         /* readlen may be modified inside salloc_r if
             is_internal_unit() is true.  */
           readlen = 1;
         }
@@ -226,7 +226,7 @@ read_sf (int *length)
    file, advancing the current position.  We return a pointer to a
    buffer containing the bytes.  We return NULL on end of record or
    end of file.
-  
+
    If the read is short, then it is because the current record does not
    have enough data to satisfy the read request and the file was
    opened with PAD=YES.  The caller must assume tailing spaces for
@@ -683,7 +683,7 @@ formatted_transfer (bt type, void *p, int len)
            else // FMT==T
              {
                 consume_data_flag = 0 ;
-                pos = f->u.n - 1; 
+                pos = f->u.n - 1;
              }
 
            if (pos < 0 || pos >= current_unit->recl )
@@ -1122,12 +1122,12 @@ data_transfer_init (int read_flag)
        generate_error (ERROR_OS, NULL);
     }
 
-  /* Overwriting an existing sequential file ? 
+  /* Overwriting an existing sequential file ?
      it is always safe to truncate the file on the first write */
-  if (g.mode == WRITING 
-      && current_unit->flags.access == ACCESS_SEQUENTIAL 
+  if (g.mode == WRITING
+      && current_unit->flags.access == ACCESS_SEQUENTIAL
       && current_unit->current_record == 0)
-        struncate(current_unit->s); 
+        struncate(current_unit->s);
 
   current_unit->mode = g.mode;
 
@@ -1227,7 +1227,7 @@ next_record_r (int done)
        {
          new = file_position (current_unit->s) + current_unit->bytes_left;
 
-         /* Direct access files do not generate END conditions, 
+         /* Direct access files do not generate END conditions,
             only I/O errors.  */
          if (sseek (current_unit->s, new) == FAILURE)
            generate_error (ERROR_OS, NULL);
@@ -1255,7 +1255,7 @@ next_record_r (int done)
     case FORMATTED_SEQUENTIAL:
       length = 1;
       /* sf_read has already terminated input because of an '\n'  */
-      if (sf_seen_eor) 
+      if (sf_seen_eor)
        {
          sf_seen_eor=0;
          break;
@@ -1371,7 +1371,7 @@ next_record_w (int done)
         }
 
       if (sfree (current_unit->s) == FAILURE)
-       goto io_error;
+       goto io_error;
 
       break;
 
@@ -1698,4 +1698,3 @@ export_proto(st_set_nml_var);
 extern void st_set_nml_var_dim (GFC_INTEGER_4, GFC_INTEGER_4,
                                GFC_INTEGER_4 ,GFC_INTEGER_4);
 export_proto(st_set_nml_var_dim);
-
index 553557d..86ca40f 100644 (file)
@@ -273,7 +273,7 @@ calculate_G_format (fnode *f, double value, int len, int *num_blank)
 static void
 output_float (fnode *f, double value, int len)
 {
-  /* This must be large enough to accurately hold any value.  */ 
+  /* This must be large enough to accurately hold any value.  */
   char buffer[32];
   char *out;
   char *digits;
@@ -324,7 +324,7 @@ output_float (fnode *f, double value, int len)
       if (edigits < 2)
        edigits = 2;
     }
-  
+
   if (ft == FMT_F || ft == FMT_EN
       || ((ft == FMT_D || ft == FMT_E) && g.scale_factor != 0))
     {
@@ -344,7 +344,7 @@ output_float (fnode *f, double value, int len)
     }
 
   sprintf (buffer, "%+-#31.*e", ndigits - 1, value);
-  
+
   /* Check the resulting string has punctuation in the correct places.  */
   if (buffer[2] != '.' || buffer[ndigits + 2] != 'e')
       internal_error ("printf is broken");
@@ -514,7 +514,7 @@ output_float (fnode *f, double value, int len)
       edigits = 1;
       for (i = abs (e); i >= 10; i /= 10)
        edigits++;
-      
+
       if (f->u.real.e < 0)
        {
          /* Width not specified.  Must be no more than 3 digits.  */
@@ -562,7 +562,7 @@ output_float (fnode *f, double value, int len)
   nblanks = w - (nbefore + nzero + nafter + edigits + 1);
   if (sign != SIGN_NONE)
     nblanks--;
-  
+
   /* Check the value fits in the specified field width.  */
   if (nblanks < 0 || edigits == -1)
     {
@@ -640,7 +640,7 @@ output_float (fnode *f, double value, int len)
       ndigits -= i;
       out += nafter;
     }
-  
+
   /* Output the exponent.  */
   if (expchar)
     {
@@ -707,22 +707,22 @@ write_float (fnode *f, const char *source, int len)
            }
 
          memset(p, ' ', nb);
-         res = !isnan (n); 
+         res = !isnan (n);
          if (res != 0)
            {
-             if (signbit(n))   
+             if (signbit(n))
                fin = '-';
              else
                fin = '+';
 
              if (nb > 7)
-               memcpy(p + nb - 8, "Infinity", 8); 
+               memcpy(p + nb - 8, "Infinity", 8);
              else
                memcpy(p + nb - 3, "Inf", 3);
              if (nb < 8 && nb > 3)
                p[nb - 4] = fin;
              else if (nb > 8)
-               p[nb - 9] = fin; 
+               p[nb - 9] = fin;
            }
          else
            memcpy(p + nb - 3, "NaN", 3);
@@ -1430,7 +1430,7 @@ nml_write_obj (namelist_info * obj, index_type offset,
            }
          num++;
 
-         /* Output the data, if an intrinsic type, or recurse into this 
+         /* Output the data, if an intrinsic type, or recurse into this
             routine to treat derived types.  */
 
          switch (obj->type)
@@ -1466,10 +1466,10 @@ nml_write_obj (namelist_info * obj, index_type offset,
 
              /* To treat a derived type, we need to build two strings:
                 ext_name = the name, including qualifiers that prepends
-                           component names in the output - passed to 
+                           component names in the output - passed to
                            nml_write_obj.
                 obj_name = the derived type name with no qualifiers but %
-                           appended.  This is used to identify the 
+                           appended.  This is used to identify the
                            components.  */
 
              /* First ext_name => get length of all possible components  */
@@ -1558,8 +1558,8 @@ obj_loop:
 }
 
 /* This is the entry function for namelist writes.  It outputs the name
-   of the namelist and iterates through the namelist by calls to 
-   nml_write_obj.  The call below has dummys in the arguments used in 
+   of the namelist and iterates through the namelist by calls to
+   nml_write_obj.  The call below has dummys in the arguments used in
    the treatment of derived types.  */
 
 void
@@ -1617,4 +1617,3 @@ namelist_write (void)
 }
 
 #undef NML_DIGITS
-
index 1d1ec60..dd75cf7 100644 (file)
@@ -93,12 +93,12 @@ matmul_`'rtype_code (rtype * retarray, rtype * a, rtype * b)
           retarray->dim[0].lbound = 0;
           retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
           retarray->dim[0].stride = 1;
-          
+
           retarray->dim[1].lbound = 0;
           retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
           retarray->dim[1].stride = retarray->dim[0].ubound+1;
         }
-          
+
       retarray->data
        = internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) retarray));
       retarray->base = 0;
@@ -159,7 +159,7 @@ sinclude(`matmul_asm_'rtype_code`.m4')dnl
       /* bystride should never be used for 1-dimensional b.
         in case it is we want it to cause a segfault, rather than
         an incorrect result. */
-      bystride = 0xDEADBEEF; 
+      bystride = 0xDEADBEEF;
       ycount = 1;
     }
   else