[flang] Fix checks for USE-associated UDDTIO & their character argument kinds
authorPeter Klausler <pklausler@nvidia.com>
Tue, 28 Mar 2023 20:38:44 +0000 (13:38 -0700)
committerPeter Klausler <pklausler@nvidia.com>
Sat, 1 Apr 2023 21:13:11 +0000 (14:13 -0700)
commit529629271736806f3ccda3ab086946bb6b963af1
tree881c0fa3c48970d521af4e55bd84a7df9e34ca12
parent9fecbd4ae69e0d41dd94250b0224ce0814f92d9d
[flang] Fix checks for USE-associated UDDTIO & their character argument kinds

Call GetUltimate() before checking a user-defined derived type I/O specific
procedure so that the checks work on a USE-associated procedure.  And
require their character arguments to have the default CHARACTER kind.

Differential Revision: https://reviews.llvm.org/D147386
flang/lib/Semantics/check-declarations.cpp
flang/test/Semantics/io11.f90