From: Steven Bosscher <stevenb@suse.de>
Date: Thu, 7 Jul 2005 11:59:29 +0000 (+0000)
Subject: primary.c (match_hollerith_constant): Use int, not unsigned int, for the hollerith... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=24bce1fd23b566afbcb00d08b287640b2e9d67d8;p=gcc.git

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

	* 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 d897396c42b..8b23d570e9c 100644
--- 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 1f8305bf7b4..f6807d5ec32 100644
--- 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);