diff options
| author | Steven Bosscher <stevenb@suse.de> | 2005-07-07 11:59:29 +0000 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2005-07-07 11:59:29 +0000 |
| commit | 24bce1fd23b566afbcb00d08b287640b2e9d67d8 (patch) | |
| tree | e940d56cbd6a643436fdfdd05bd15d8ed752189d /gcc | |
| parent | 8ddf681af74e5404974fb47b0b9874de49a3b07d (diff) | |
| download | gcc-24bce1fd23b566afbcb00d08b287640b2e9d67d8.tar.gz | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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); |