OSDN Git Service

* primary.c (match_hollerith_constant): Use int, not unsigned int,
authorsteven <steven@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 7 Jul 2005 11:59:29 +0000 (11:59 +0000)
committersteven <steven@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 7 Jul 2005 11:59:29 +0000 (11:59 +0000)
for the hollerith length.  Fix indentation.

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

gcc/fortran/ChangeLog
gcc/fortran/primary.c

index d897396..8b23d57 100644 (file)
@@ -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
index 1f8305b..f6807d5 100644 (file)
@@ -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);