From: pault Date: Thu, 24 Jan 2019 07:21:36 +0000 (+0000) Subject: 2019-01-24 Paul Thomas X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=37a93ae4d77213779dc9e0b2990212b17f9fd373;p=thirdparty%2Fgcc.git 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@268232 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.f90 b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.f90 index 4870ca0edcb0..c4cdbf0e74dc 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