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>
PR fortran/16531
......
......@@ -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);
......
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