primary.c (match_hollerith_constant): Use int, not unsigned int, for the hollerith...

	* primary.c (match_hollerith_constant): Use int, not unsigned int,
	for the hollerith length.  Fix indentation.

From-SVN: r101707

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d897396c42b5f0b5a3b524493676f714814f30b4..8b23d570e9cbd2a5b1599fb7030a2c69dd84d858 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-07-07  Steven Bosscher  <stevenb@suse.de>
+
+       * primary.c (match_hollerith_constant): Use int, not unsigned int,
+       for the hollerith length.  Fix indentation.
+
 2005-07-07  Feng Wang  <fengwang@nudt.edu.cn>
 
        PR fortran/16531

diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c
index 1f8305bf7b4346d27633cf8bfbab4552c9f1757c..f6807d5ec32872e7b31e43a7e5fb43afb7fc7cf2 100644 (file)
--- a/gcc/fortran/primary.c
+++ b/gcc/fortran/primary.c
@@ -237,8 +237,8 @@ match_hollerith_constant (gfc_expr ** result)
   gfc_expr * e = NULL;
   const char * msg;
   char * buffer;
-  unsigned int num;
-  unsigned int i;  
+  int num;
+  int i;  
 
   old_loc = gfc_current_locus;
   gfc_gobble_whitespace ();
@@ -271,7 +271,7 @@ match_hollerith_constant (gfc_expr ** result)
        }
       else
        {
-         buffer = (char *)gfc_getmem (sizeof(char)*num+1);
+         buffer = (char *) gfc_getmem (sizeof(char) * num + 1);
          for (i = 0; i < num; i++)
            {
              buffer[i] = gfc_next_char_literal (1);