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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Fixed form parser problem
        </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 reducer
```
      subroutine sub(dsind)
      double precision,external::dsind
      if ((dsind(1.D1)>(-.54D0)).or.(dsind(1.D1)<(-.55D0))) ERROR STOP(2)
 end
```

Flang failed compilation when `-ffixed-form` is specified as
```
error: Could not scan t4.f
./t4.f:3:71: error: Unmatched '('
 if ((dsind(1.D1)>(-.54D0)).or.(dsind(1.D1)<(-.55D0))) ERROR STOP(2)
 ^

```

Using `-ffree-form`, Flang compiles it fine.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJy8k1FvmzAUhX_N5cUKMteBwAMPLCmvnbr1Bxh8HTw5dmSbtvv3k0PaTtWeh5Aw0rnHx5-OZYzm7Ih6qL9BfSrkmhYf-pN0huzxuJArJq9-90fvolEUWFqIaW-tfzXuzAKpdaYAfICG318-sNsT1yn4NRlHeQnYqmicAuw-FMqvkyV2DTSbaLwDPNJbouCkBTGAGLaJd7nRDLD9NGqr8lRlP_EA2O7Ken_i-Re70ofyX7rjpqvfdYAde3h6enxiP34-fgds8R6Pbtv-fSbgw2ilOzMtjSXFZn-5GiuT8Y69LuQYNHyntXkjtdM-XKDhzEQWrzQbbUgxGb84Ugg-gBjY0a9WMecTi7N0LO1LDXwoAcfbUgwCxHCosvRj5tldZJoXUgzwcKNyyLn_IyKoHzYsXyg9x1yMjUYgeocBeGQbwI0cRWYS08ZRWaheqE50sqC-OtT7BptGdMXS87rCTnIh57nVVX3QfBK6k5IjTigVL0yPHGve8pbvq0PVla3atxWXM_Jmmqaugj2nizS2tPblUvpwLkyMK_VVjY1oCysnsvHWfUSd04EYdPAu5QIg5hsR-jy7m9ZzhD23Jqb46ZZMsre7sw3XJzbmBrB8aHaVIVJg1-AnS5diDbZfUrrG3G0cAcezScs6lbO_AI7Z8_7ZXYP_RXMCHG9xI-B4T_zS458AAAD__-HfEXs">