diff options
| author | José Rui Faustino de Sousa <jrfsousa@gmail.com> | 2021-04-16 23:33:04 +0000 |
|---|---|---|
| committer | José Rui Faustino de Sousa <jrfsousa@gmail.com> | 2021-04-16 23:33:04 +0000 |
| commit | c1c86ab96c20a3f52fb59e0532ae9c93665deb44 (patch) | |
| tree | 27842478af4e82e6d6fee2319067e7078eddace6 /gcc/fortran/trans-array.c | |
| parent | 0754a104bed7c8a937f0623ad15ca03387131210 (diff) | |
| download | gcc-c1c86ab96c20a3f52fb59e0532ae9c93665deb44.zip gcc-c1c86ab96c20a3f52fb59e0532ae9c93665deb44.tar.gz gcc-c1c86ab96c20a3f52fb59e0532ae9c93665deb44.tar.bz2 | |
Fortran: Add missing TKR initialization [PR100094]
gcc/fortran/ChangeLog:
PR fortran/100094
* trans-array.c (gfc_trans_deferred_array): Add code to initialize
pointers and allocatables with correct TKR parameters.
gcc/testsuite/ChangeLog:
PR fortran/100094
* gfortran.dg/PR100094.f90: New test.
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index ca90142..e99980f 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -10874,6 +10874,20 @@ gfc_trans_deferred_array (gfc_symbol * sym, gfc_wrapped_block * block) } } + /* Set initial TKR for pointers and allocatables */ + if (GFC_DESCRIPTOR_TYPE_P (type) + && (sym->attr.pointer || sym->attr.allocatable)) + { + tree etype; + + gcc_assert (sym->as && sym->as->rank>=0); + tmp = gfc_conv_descriptor_dtype (descriptor); + etype = gfc_get_element_type (type); + tmp = fold_build2_loc (input_location, MODIFY_EXPR, + TREE_TYPE (tmp), tmp, + gfc_get_dtype_rank_type (sym->as->rank, etype)); + gfc_add_expr_to_block (&init, tmp); + } gfc_restore_backend_locus (&loc); gfc_init_block (&cleanup); |