diff options
author | Paul Thomas <pault@gcc.gnu.org> | 2019-10-05 08:17:55 +0000 |
---|---|---|
committer | Paul Thomas <pault@gcc.gnu.org> | 2019-10-05 08:17:55 +0000 |
commit | 980f185ce3ba6d532530ce0f23bfb6e30320fd8a (patch) | |
tree | b40f3f5c3c1e5b8d688086087e5c32f403976dcd /libgfortran | |
parent | d56cbcc0a2ae508afbbc1c3d6a6b925971ff2d6e (diff) | |
download | gcc-980f185ce3ba6d532530ce0f23bfb6e30320fd8a.zip gcc-980f185ce3ba6d532530ce0f23bfb6e30320fd8a.tar.gz gcc-980f185ce3ba6d532530ce0f23bfb6e30320fd8a.tar.bz2 |
re PR fortran/91926 (assumed rank optional)
2019-10-05 Paul Thomas <pault@gcc.gnu.org>
PR fortran/91926
* trans-expr.c (gfc_conv_gfc_desc_to_cfi_desc): Correct the
assignment of the attribute field to account correctly for an
assumed shape dummy. Assign separately to the gfc and cfi
descriptors since the atribute can be different. Add btanch to
correctly handle missing optional dummies.
2019-10-05 Paul Thomas <pault@gcc.gnu.org>
PR fortran/91926
* gfortran.dg/ISO_Fortran_binding_13.f90 : New test.
* gfortran.dg/ISO_Fortran_binding_13.c : Additional source.
* gfortran.dg/ISO_Fortran_binding_14.f90 : New test.
2019-10-05 Paul Thomas <pault@gcc.gnu.org>
PR fortran/91926
* runtime/ISO_Fortran_binding.c (cfi_desc_to_gfc_desc): Do not
modify the bounds and offset for CFI_other.
From-SVN: r276624
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 8 | ||||
-rw-r--r-- | libgfortran/runtime/ISO_Fortran_binding.c | 3 |
2 files changed, 9 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3f69e56..7736e5da 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2019-10-05 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/91926 + * runtime/ISO_Fortran_binding.c (cfi_desc_to_gfc_desc): Do not + modify the bounds and offset for CFI_other. + 2019-10-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/91593 @@ -14,7 +20,7 @@ formatted_transfer_scalar_read, formatted_transfer_scalar_write, pre_position, next_record_r, next_record_w): Add and use FORMATTED_UNSPECIFIED to enumeration. - + 2019-09-27 Maciej W. Rozycki <macro@wdc.com> * configure: Regenerate. diff --git a/libgfortran/runtime/ISO_Fortran_binding.c b/libgfortran/runtime/ISO_Fortran_binding.c index 695ef57..8cfcc98 100644 --- a/libgfortran/runtime/ISO_Fortran_binding.c +++ b/libgfortran/runtime/ISO_Fortran_binding.c @@ -63,7 +63,8 @@ cfi_desc_to_gfc_desc (gfc_array_void *d, CFI_cdesc_t **s_ptr) d->dtype.version = s->version; GFC_DESCRIPTOR_RANK (d) = (signed char)s->rank; - d->dtype.attribute = (signed short)s->attribute; + if (d->dtype.attribute == CFI_attribute_other) + return; if (s->rank) { |