Dear Paul,

Paul Richard Thomas wrote:
Find attached a revised patch to fix PR 41600.

Thanks for the patch. I think it is OK.

Regarding:

!       if (ref&&  ref->type != REF_ARRAY&&  seen_array)
!       {
!         gfc_error ("CLASS selector at %L is an array with CLASS "
!                    "components; this is not allowed since the "
!                    "elements could have different dynamic types",
!               &target->where);

Could you open a PR for it? If possible with a test case.

Tobias

Reply via email to