[flang] runtime error on inappropriate OPEN(UNIT=extant,RECL=n)
authorPeter Klausler <pklausler@nvidia.com>
Mon, 10 Jan 2022 20:04:30 +0000 (12:04 -0800)
committerPeter Klausler <pklausler@nvidia.com>
Tue, 18 Jan 2022 22:54:27 +0000 (14:54 -0800)
commite847b30369adffd5e90401918eb9efbd82b28607
tree0a1f625ff1a030a49478b2a0d60f99008937e9ea
parent17beee44e19ba3d3ccb6a5a4f4429662db7e70c8
[flang] runtime error on inappropriate OPEN(UNIT=extant,RECL=n)

Don't let a program set a fixed RECL= on a connected unit unless
it already had one with the same value.

Differential Revision: https://reviews.llvm.org/D117595
flang/runtime/io-api.cpp