diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2024-12-09 07:32:22 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2024-12-09 07:32:22 +0000 |
| commit | ad94070689b3fadafca14c188c650aad6b8600e7 (patch) | |
| tree | b9ca24cf3174bb98d1dab3b27b8d121c7f17224e /gcc/fortran/trans-array.h | |
| parent | cd4daddf6c3f977469c51dac518000b16668364f (diff) | |
| download | gcc-ad94070689b3fadafca14c188c650aad6b8600e7.zip gcc-ad94070689b3fadafca14c188c650aad6b8600e7.tar.gz gcc-ad94070689b3fadafca14c188c650aad6b8600e7.tar.bz2 | |
Fortran: Fix testsuite regressions after r15-5897 [PR116261/PR117901]
2024-12-09 Paul Thomas <pault@gcc.gnu.org>
gcc/fortran
PR fortran/116261
* trans-array.cc (gfc_array_init_size): New arg 'explicit_ts',
to suppress the use of the expr3 element size in the descriptor
dtype.
(gfc_array_allocate): New arg 'explicit_ts', used in call to
gfc_array_init_size.
* trans-array.h : Modify prototype for gfc_array_allocate for new
bool argument.
* trans-stmt.cc (gfc_trans_allocate): Set new argument if the
typespec is explicit.
gcc/testsuite/
PR fortran/117901
* gfortran.dg/class_transformational_1.f90: Temporary fix for
ICE with some compile options by setting dummy arg of
'unlimited rebar' to be allocatable.
Diffstat (limited to 'gcc/fortran/trans-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index ab27f15..becc8ca 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -22,7 +22,7 @@ along with GCC; see the file COPYING3. If not see se, which should contain an expression for the array descriptor. */ bool gfc_array_allocate (gfc_se *, gfc_expr *, tree, tree, tree, tree, tree, tree *, gfc_expr *, tree, bool, - gfc_omp_namelist *); + gfc_omp_namelist *, bool); /* Allow the bounds of a loop to be set from a callee's array spec. */ void gfc_set_loop_bounds_from_array_spec (gfc_interface_mapping *, |