From b3fbf95ec1becab6d713e621175331c57abcaa88 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sat, 19 Oct 2019 16:44:06 +0000 Subject: re PR fortran/91926 (assumed rank optional) 2019-10-19 Paul Thomas PR fortran/91926 * runtime/ISO_Fortran_binding.c (cfi_desc_to_gfc_desc): Revert the change made on 2019-10-05. From-SVN: r277204 --- libgfortran/runtime/ISO_Fortran_binding.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'libgfortran/runtime') diff --git a/libgfortran/runtime/ISO_Fortran_binding.c b/libgfortran/runtime/ISO_Fortran_binding.c index 8cfcc98..695ef57 100644 --- a/libgfortran/runtime/ISO_Fortran_binding.c +++ b/libgfortran/runtime/ISO_Fortran_binding.c @@ -63,8 +63,7 @@ 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; - if (d->dtype.attribute == CFI_attribute_other) - return; + d->dtype.attribute = (signed short)s->attribute; if (s->rank) { -- cgit v1.1