diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-23 12:39:20 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-23 12:39:20 +0000 |
| commit | 6f56c73420685315624a5069d3ab17f5f06602e3 (patch) | |
| tree | 6abde470e0647713aef2eabae51c6979f94145ac /libgfortran | |
| parent | f161695e20eaf2fbdc64af394480a159456e632a (diff) | |
| download | gcc-6f56c73420685315624a5069d3ab17f5f06602e3.tar.gz | |
2010-08-23 Tobias Burnus <burnus@net-b.de>
PR fortran/45323
* io/write.c (nml_write_obj, namelist_write): Cast argument
of toupper to int.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163469 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index eae41d236f6..c79027adcb7 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2010-08-23 Tobias Burnus <burnus@net-b.de> + + PR fortran/45323 + * io/write.c (nml_write_obj, namelist_write): Cast argument + of toupper to int. + 2010-08-21 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> * configure: Regenerate. diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 775425d6d77..e811c47baef 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1703,14 +1703,14 @@ nml_write_obj (st_parameter_dt *dtp, namelist_info * obj, index_type offset, base_name_len = strlen (base_name); for (dim_i = 0; dim_i < base_name_len; dim_i++) { - cup = toupper (base_name[dim_i]); + cup = toupper ((int) base_name[dim_i]); write_character (dtp, &cup, 1, 1); } } clen = strlen (obj->var_name); for (dim_i = len; dim_i < clen; dim_i++) { - cup = toupper (obj->var_name[dim_i]); + cup = toupper ((int) obj->var_name[dim_i]); write_character (dtp, &cup, 1, 1); } write_character (dtp, "=", 1, 1); @@ -1959,7 +1959,7 @@ namelist_write (st_parameter_dt *dtp) /* Write namelist name in upper case - f95 std. */ for (i = 0 ;i < dtp->namelist_name_len ;i++ ) { - c = toupper (dtp->namelist_name[i]); + c = toupper ((int) dtp->namelist_name[i]); write_character (dtp, &c, 1 ,1); } |