From 55c9782e173af23bb3e78eb9d1f4ee2810ce4da8 Mon Sep 17 00:00:00 2001 From: steven Date: Thu, 7 Jul 2005 11:59:29 +0000 Subject: [PATCH] * primary.c (match_hollerith_constant): Use int, not unsigned int, 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 | 5 +++++ gcc/fortran/primary.c | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + + * primary.c (match_hollerith_constant): Use int, not unsigned int, + for the hollerith length. Fix indentation. + 2005-07-07 Feng Wang 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); -- 2.11.4.GIT