[flang] Don't mistakenly tokenize a Hollerith literal from "DO 100 H=..." (bug #58732)
authorPeter Klausler <pklausler@nvidia.com>
Thu, 11 May 2023 23:00:14 +0000 (16:00 -0700)
committerPeter Klausler <pklausler@nvidia.com>
Tue, 16 May 2023 16:56:22 +0000 (09:56 -0700)
commita6569e578eb4b54d48af53282d176e227f36f05d
tree2fe0e607c28001322c4835b9bcf3a59eaa2be0fd
parent48c3ae5cc3d4612283018ea597db3f7214aabfd9
[flang] Don't mistakenly tokenize a Hollerith literal from "DO 100 H=..." (bug #58732)

After tokenizing an identifier, don't allow the next token to be a
Hollerith literal.

Fixes https://github.com/llvm/llvm-project/issues/58732.

Differential Revision: https://reviews.llvm.org/D150406
flang/lib/Parser/prescan.cpp
flang/test/Parser/do100h.f [new file with mode: 0644]