From: Paul Thomas Date: Thu, 24 Jan 2019 07:21:36 +0000 (+0000) Subject: re PR fortran/88929 (ICE on building MPICH 3.2 with GCC 9 with ISO_Fortran_binding) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=07fd2247eed45cd69c7b2294fe528c9bbe7a838e;p=gcc.git re PR fortran/88929 (ICE on building MPICH 3.2 with GCC 9 with ISO_Fortran_binding) 2019-01-24 Paul Thomas PR fortran/88929 * trans-array.c (gfc_conv_descriptor_elem_len): New function. * trans-array.h : Add prototype for above. * trans-expr.c (gfc_conv_gfc_desc_to_cfi_desc): Take account of assumed rank arrays being flagged by rank = -1 in expressions. Intent in arrays need a pointer to a copy of the data to be assigned to the descriptor passed for conversion. This should then be freed, together with the CFI descriptor on return from the C call. 2019-01-24 Paul Thomas PR fortran/88929 * gfortran.dg/ISO_Fortran_binding_3.f90 : New test * gfortran.dg/ISO_Fortran_binding_3.c : Subsidiary source. From-SVN: r268232 --- diff --git a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.f90 b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.f90 index 4870ca0edcb..c4cdbf0e74d 100644 --- a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.f90 +++ b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.f90 @@ -50,4 +50,4 @@ contains err = test_c (arg) ! This used to ICE end function test2 -end \ No newline at end of file +end