diff options
| author | Jan Hubicka <hubicka@ucw.cz> | 2024-11-15 15:51:14 +0100 |
|---|---|---|
| committer | Jan Hubicka <hubicka@ucw.cz> | 2024-11-15 15:51:14 +0100 |
| commit | d5af5657fa4173dd8d3155e44fe6a1e3914cde8f (patch) | |
| tree | a7afb55ad1f94dea3481c2f01e2ff02fa4a2459c /gcc/fortran/trans-expr.cc | |
| parent | 3320319ede5ce1cb34ba016f4a0d1e6588059980 (diff) | |
| download | gcc-d5af5657fa4173dd8d3155e44fe6a1e3914cde8f.zip gcc-d5af5657fa4173dd8d3155e44fe6a1e3914cde8f.tar.gz gcc-d5af5657fa4173dd8d3155e44fe6a1e3914cde8f.tar.bz2 | |
Fix type of malloc parameter in trans-expr.cc
gcc/fortran/ChangeLog:
* trans-expr.cc (gfc_trans_subcomponent_assign): Fix type of malloc
parameter.
Diffstat (limited to 'gcc/fortran/trans-expr.cc')
| -rw-r--r-- | gcc/fortran/trans-expr.cc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index f004af7..a3c1dc0 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -9740,6 +9740,7 @@ gfc_trans_subcomponent_assign (tree dest, gfc_component * cm, gfc_init_se (&se, NULL); gfc_conv_expr (&se, expr); size = size_of_string_in_bytes (cm->ts.kind, se.string_length); + size = fold_convert (size_type_node, size); tmp = build_call_expr_loc (input_location, builtin_decl_explicit (BUILT_IN_MALLOC), 1, size); |