[flang-commits] [flang] [Flang] Fix spurious errors for common blocks with binding labels (PR #218566)

[via flang-commits]

github-actions[bot] wrote:

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

* 5026 tests passed
* 258 tests skipped
* 1 test failed

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

### Flang
<details>
<summary>Flang.Semantics/common-block-multiple-init-bindc.f90</summary>

```
Exit Code: 1

Command Output (stdout):
--
# RUN: at line 1
not c:\_work\llvm-project\llvm-project\build\bin\flang.exe -fsyntax-only 2>&1 C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90 | c:\_work\llvm-project\llvm-project\build\bin\filecheck.exe C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90
# executed command: not 'c:\_work\llvm-project\llvm-project\build\bin\flang.exe' -fsyntax-only 'C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90'
# note: command had no output on stdout or stderr
# 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\Semantics\common-block-multiple-init-bindc.f90'
# .---command stderr------------
# | C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90:26:11: error: CHECK: expected string not found in input
# |  ! CHECK: error: Multiple initialization of COMMON block /b/
# |           ^
# | <stdin>:1:1: note: scanning from here
# | C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90:23:14: portability: Multiple initialization of COMMON block /b/ is not standard; this appearance duplicates the previous initialization [-Wmultiple-common-block-init]
# | ^
# | <stdin>:1:107: note: possible intended match here
# | C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90:23:14: portability: Multiple initialization of COMMON block /b/ is not standard; this appearance duplicates the previous initialization [-Wmultiple-common-block-init]
# |                                                                                                           ^
# | 
# | Input file: <stdin>
# | Check file: C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90
# | 
# | -dump-input=help explains the following input dump.
# | 
# | Input was:
# | <<<<<<
# |             1: C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90:23:14: portability: Multiple initialization of COMMON block /b/ is not standard; this appearance duplicates the previous initialization [-Wmultiple-common-block-init] 
# | check:26'0    {                                                                                                                                                                                                                                                                      search range start (exclusive)
# | check:26'1                                                                                                                                                                                                                                                                           error: no match found in search range
# | check:26'2                                                                                                               ?                                                                                                                                                           possible intended match
# |             2:  integer :: xb 
# |             3:  ^^ 
# |             4: C:\_work\llvm-project\llvm-project\flang\test\Semantics\common-block-multiple-init-bindc.f90:16:14: Previous initialization of COMMON block /a/ 
# |             5:  integer :: xa 
# |             6:  ^^ 
# | check:26'3         } search range end (exclusive)
# | >>>>>>
# `-----------------------------
# error: command failed with exit status: 1

--

```
</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/218566