[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: Linux-->
# :penguin: Linux x64 Test Results

* 5141 tests passed
* 143 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 /home/gha/actions-runner/_work/llvm-project/llvm-project/build/bin/flang -fsyntax-only 2>&1 /home/gha/actions-runner/_work/llvm-project/llvm-project/flang/test/Semantics/common-block-multiple-init-bindc.f90 | /home/gha/actions-runner/_work/llvm-project/llvm-project/build/bin/FileCheck /home/gha/actions-runner/_work/llvm-project/llvm-project/flang/test/Semantics/common-block-multiple-init-bindc.f90
# executed command: not /home/gha/actions-runner/_work/llvm-project/llvm-project/build/bin/flang -fsyntax-only /home/gha/actions-runner/_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: /home/gha/actions-runner/_work/llvm-project/llvm-project/build/bin/FileCheck /home/gha/actions-runner/_work/llvm-project/llvm-project/flang/test/Semantics/common-block-multiple-init-bindc.f90
# .---command stderr------------
# | /home/gha/actions-runner/_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
# | /home/gha/actions-runner/_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:129: note: possible intended match here
# | /home/gha/actions-runner/_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: /home/gha/actions-runner/_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: /home/gha/actions-runner/_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: /home/gha/actions-runner/_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