[flang] Accept defined assignment with CLASS(*) RHS
authorPeter Klausler <pklausler@nvidia.com>
Thu, 19 May 2022 23:30:04 +0000 (16:30 -0700)
committerPeter Klausler <pklausler@nvidia.com>
Tue, 24 May 2022 20:41:28 +0000 (13:41 -0700)
commit48a8a3eb2f5646c9ac847a07f42316a81e025c23
tree539d10fb3660368455cef06378593dba057ab1d8
parentbd92bca53517bfbce3396d9f87f42fa438e8d1fd
[flang] Accept defined assignment with CLASS(*) RHS

A utility predicate in semantics was incorrectly determining that
an INTERFACE ASSIGNMENT(=) (or other form of generic) could not have
a specific procedure with an unlimited polymorphic second argument.
This led to a crash later in expression analysis.  Fix, and
extend tests.

Differential Revision: https://reviews.llvm.org/D126151
flang/lib/Semantics/tools.cpp
flang/test/Semantics/defined-ops.f90