Commit 24bce1fd by Steven Bosscher Committed by Steven Bosscher

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
parent 8ddf681a
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> 2005-07-07 Feng Wang <fengwang@nudt.edu.cn>
PR fortran/16531 PR fortran/16531
......
...@@ -237,8 +237,8 @@ match_hollerith_constant (gfc_expr ** result) ...@@ -237,8 +237,8 @@ match_hollerith_constant (gfc_expr ** result)
gfc_expr * e = NULL; gfc_expr * e = NULL;
const char * msg; const char * msg;
char * buffer; char * buffer;
unsigned int num; int num;
unsigned int i; int i;
old_loc = gfc_current_locus; old_loc = gfc_current_locus;
gfc_gobble_whitespace (); gfc_gobble_whitespace ();
...@@ -271,7 +271,7 @@ match_hollerith_constant (gfc_expr ** result) ...@@ -271,7 +271,7 @@ match_hollerith_constant (gfc_expr ** result)
} }
else else
{ {
buffer = (char *)gfc_getmem (sizeof(char)*num+1); buffer = (char *) gfc_getmem (sizeof(char) * num + 1);
for (i = 0; i < num; i++) for (i = 0; i < num; i++)
{ {
buffer[i] = gfc_next_char_literal (1); buffer[i] = gfc_next_char_literal (1);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment