<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/137640>137640</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [flang] Parser error in fixed-form
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang:frontend
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          DanielCChen
      </td>
    </tr>
</table>

<pre>
    Consider the following code:
```
          program pointer4e
          if ((ifac1 (4) .ne. 24) .or. (ifac2 (4) .ne. 24)) ERROR STOP(5)
 end
```

When compile it with `-ffixed-form`, flang issues an error as
```
./pointer4e.f:2:71: error: Unmatched '('
            if ((ifac1 (4) .ne. 24) .or. (ifac2 (4) .ne. 24)) ERROR STOP(5)
 ^
```

It compiles fine if I used `-ffree-form`.

</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJy0UsFu2zAM_Rr6QsSQaSt2Dj54aQP01CLbsLNi0bYGWQokpd3-frCTtmi36wQBoiSSeHzvqRjN6JhbkF9A3mXqkiYf2jvlDNv9fmKXnbz-3e69i0ZzwDQxDt5a_2LciL3XDGUHooOtuG3R4ds6Bz8GNePZG5c4VPzh1wwI1AA1ZlB9scQV0A5zxznSNfQhx1sC_SNhud0fj49H_Prt8Qmokcuj6JCd_gQKRPdjYoe9n8_GMpqELyZNCFuxGQbzi_Vm8GFekmmPg1VuRBPjhSMqhxyCD6jip6Y50OFttnyAsiMou7qAsruWLMF3N6vUT6wRqF4Hrj_Q8F-JAHn_NxEP6ZWGiINxvAB4wEtcIK50BOZXNnIQXabbUu_Kncq4LepKNlI0ssmmlnpdiYqHWhQkxe7UNEMp6VTqulZCqG1mWhIkRUVNUZVVUeZyp2Uj1E4XutaiF1AJnpWxubXPc-7DmK2kt0VZbyuRWXViG1d3Eq2iQNkNwbu0KEy0eDa0S-3mdBkjVMKamOJ7t2SSXd19LZZ3-KRC5HBT1Dh81z67BNtOKZ3j4mk6AB1Gk6bLKe_9DHRYmt6OzTn4n9wnoMPVJECHG-Tnlv4EAAD__8108zI">