* arith.c (character2representation): Change i type to size_t.
From-SVN: r277978
This commit is contained in:
parent
d308ca27c7
commit
77b29023e1
@ -1,11 +1,16 @@
|
||||
2019-11-08 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
* arith.c (character2representation): Change i type to size_t.
|
||||
|
||||
2019-11-08 Mark Eggleston <mark.eggleston@codethink.com>
|
||||
Jim MacArthur <jim.macarthur@codethink.co.uk>
|
||||
Jim MacArthur <jim.macarthur@codethink.co.uk>
|
||||
|
||||
* arith.c (hollerith2representation): Use OPT_Wcharacter_truncation in
|
||||
call to gfc_warning. Add character2representation, gfc_character2int,
|
||||
gfc_character2real, gfc_character2complex and gfc_character2logical.
|
||||
* arith.h: Add prototypes for gfc_character2int, gfc_character2real,
|
||||
gfc_character2complex and gfc_character2logical.
|
||||
call to gfc_warning.
|
||||
(character2representation, gfc_character2int, gfc_character2real,
|
||||
gfc_character2complex and gfc_character2logical): New.
|
||||
* arith.h (gfc_character2int, gfc_character2real, gfc_character2complex,
|
||||
gfc_character2logical): Declare.
|
||||
* expr.c (gfc_check_assign): Return true if left hand side is numeric
|
||||
or logical and the right hand side is character and of kind=1.
|
||||
* gfortran.texi: Add -fdec-char-conversions.
|
||||
|
@ -2534,8 +2534,7 @@ hollerith2representation (gfc_expr *result, gfc_expr *src)
|
||||
static void
|
||||
character2representation (gfc_expr *result, gfc_expr *src)
|
||||
{
|
||||
size_t src_len, result_len;
|
||||
int i;
|
||||
size_t src_len, result_len, i;
|
||||
src_len = src->value.character.length;
|
||||
gfc_target_expr_size (result, &result_len);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user