re PR fortran/91926 (assumed rank optional)
2019-10-19 Paul Thomas <pault@gcc.gnu.org> PR fortran/91926 * runtime/ISO_Fortran_binding.c (cfi_desc_to_gfc_desc): Revert the change made on 2019-10-05. From-SVN: r277204
This commit is contained in:
parent
15643a0dfc
commit
b3fbf95ec1
2 changed files with 7 additions and 2 deletions
|
@ -1,3 +1,9 @@
|
|||
2019-10-19 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/91926
|
||||
* runtime/ISO_Fortran_binding.c (cfi_desc_to_gfc_desc): Revert
|
||||
the change made on 2019-10-05.
|
||||
|
||||
2019-10-08 Thomas Schwinge <thomas@codesourcery.com>
|
||||
|
||||
PR fortran/68401
|
||||
|
|
|
@ -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)
|
||||
{
|
||||
|
|
Loading…
Add table
Reference in a new issue