From 07fd2247eed45cd69c7b2294fe528c9bbe7a838e Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Thu, 24 Jan 2019 07:21:36 +0000 Subject: [PATCH] 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 --- gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.30.2