[flang-commits] [flang] [flang] Fix parse error on !$ACC ROUTINE (PR #175856)

[via flang-commits]

github-actions[bot] wrote:

<!--PREMERGE ADVISOR COMMENT: Windows-->
# :window: Windows x64 Test Results

* 3854 tests passed
* 245 tests skipped
* 1 test failed

## Failed Tests
(click on a test name to see its output)

### Flang
<details>
<summary>Flang.Parser/acc-routine.f90</summary>

```
Exit Code: 2

Command Output (stdout):
--
# RUN: at line 1
c:\_work\llvm-project\llvm-project\build\bin\flang.exe -fc1 -fopenacc -fdebug-unparse C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90 | c:\_work\llvm-project\llvm-project\build\bin\filecheck.exe C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90
# executed command: 'c:\_work\llvm-project\llvm-project\build\bin\flang.exe' -fc1 -fopenacc -fdebug-unparse 'C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90'
# .---command stderr------------
# | error: Could not parse C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90
# | C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90:2:6: error: expected '('
# |   CHECK: !$ACC ROUTINE(square) BIND(asdf)
# |        ^
# | C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90:2:1: in the context: statement function definition
# |   CHECK: !$ACC ROUTINE(square) BIND(asdf)
# |   ^
# | C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90:4:10: error: expected '('
# |   function square(x)
# |            ^
# | C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90:4:1: in the context: statement function definition
# |   function square(x)
# |   ^
# | C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90:2:1: in the context: specification part
# |   CHECK: !$ACC ROUTINE(square) BIND(asdf)
# |   ^
# `-----------------------------
# error: command failed with exit status: 1
# executed command: 'c:\_work\llvm-project\llvm-project\build\bin\filecheck.exe' 'C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90'
# .---command stderr------------
# | FileCheck error: '<stdin>' is empty.
# | FileCheck command line:  c:\_work\llvm-project\llvm-project\build\bin\filecheck.exe C:\_work\llvm-project\llvm-project\flang\test\Parser\acc-routine.f90
# `-----------------------------
# error: command failed with exit status: 2

--

```
</details>

If these failures are unrelated to your changes (for example tests are broken or flaky at HEAD), please open an issue at https://github.com/llvm/llvm-project/issues and add the `infrastructure` label.

https://github.com/llvm/llvm-project/pull/175856