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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Incorrect preprocesor output
        </td>
    </tr>

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

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

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

<pre>
    for the following program:
#define NOCOMMENT
NOCOMMENT    CALL myfunc( 'hello ' // &
NOCOMMENT    'world' //
NOCOMMENT    'again' )

The correct preprocessor output is
 CALL myfunc( 'hello ' // &
    'world' //
    'again' )

flang is not able to scan this code and gives following error
flang -E -ffree-form x1.F
error: Could not scan x1.F
./x1.F:2:25: error: Unmatched '('
  NOCOMMENT    CALL myfunc( 'hello ' // &
                          ^
./x1.F:4:22: error: Unmatched ')'
  NOCOMMENT    'again' )
                       ^

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyck9tuozAQhp_G3IyCzHC-4CLbBmmlHm66D2DMAF4ZjGyTbt9-BYmSSk1b7SJhsPzP-LNnfuGc6ieiiqU_WHofiMUPxlZuUEdhxSiEFSZoTPtWdcaCHwg6o7V5VVMPszW9FSOL94zfM75nGLfUqYng6fnu-fHx8PRyWrhMAQDu9g8PML51yyQZFsAwH0hrs_4Aw5phDQyzG4EM81djdXsV3haJXqjpJCrPYNv4MhBIYy1JD7Ol2RpJzhkLZvHz4kG5k-6fCL8C-4an02LqQTmYjAfRaAJvwEkxgR-UA2laAjG10KsjuXfXTtYa-z7F7gC7rrNEu87YEf5E4RngpIz3cGcW3W77bPmvipBhvc3iPa5vuqovYb-mUXg5ULseg2GxjueT_XdJ4dOHpYcPUMkKhV9BlZ9B3bz577YO2ipuy7gUAVVRHiOmRcbTYKhiHhVFU6QRJk2UZEWc5XFTcuRlmbd5WQSqQo5JFCHyLM2SNJRl17XUEZdpnidcsoTTKJQOtT6OobF9oJxbqIqiHMs80KIh7TYbIm51ZYirI221BuyapXcs4Vo5764pvPJ68-4pIr2Hn9OHHr-0eLBYXQ3ez2717FaYXvlhaUJpRob1mvb82c3W_CbpGdYbpmNYn0mPFf4NAAD__9aiMH8">