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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Incorrect execution result when a variable declared by both common and namelist statement is used in do reduction construct and namelist-group-name is output
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 19.0.0(41211919db5feb279d2954eb590a3cf2a1742152)/AArch64
```

When a variable declared by both `common` and `namelist` statement is used in `do reduction` construct and `namelist-group-name` is output, the output is incorrect.


The following are the test program, Flang-new, Gfortran and ifort compilation/execution result.

snggq855_222.f90:
```fortran
program main
  call sub1
end program main

subroutine sub1()
  common // im1
 namelist /nam/im1
  im1=10
!$omp parallel
!$omp do reduction (+:im1)
  do j=1,4
     im1 = im1 + 1
     write(1,nam)
 enddo
!$omp enddo
!$omp end parallel
end subroutine sub1
```

```
$ flang-new -fopenmp snggq855_222.f90; ./a.out; cat fort.1
 &NAM IM1= 10/
 &NAM IM1= 10/
 &NAM IM1= 10/
 &NAM IM1= 10/
$
```

```
$ gfortran -fopenmp snggq855_22.f90; ./a.out; cat fort.1
&NAM
 IM1=1          ,
 /
&NAM
 IM1=2 ,
 /
&NAM
 IM1=1          ,
 /
&NAM
 IM1=2          ,
 /
$
```

```
$ ifort -qopenmp -diag-disable=10448 snggq855_22.f90; ./a.out; cat fort.1
 &NAM
 IM1     =           1
 /
 &NAM
 IM1     =           1
 /
 &NAM
 IM1     = 2
 /
 &NAM
 IM1     =           2
 /
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy0VU1zpDYQ_TWaS9dQovmY4cBh7KlJ7cFJDqnkmBLQgFxCYiVhZ_99SsD4A9ub3a2sywWjlvrp6TXqJ5yTnSYqWXbDsvNOTL43tjS9Nvv2fleZ5kvJcr7-8zPjpz_JOmk0mBZaJXS31_QILDlBXEQ84gyPaYxxXMRFU2UtVXgoGiyylKqs4CKpWxTxIcU4Q4YFw8vpZOs-TxfwzV7L86-eNAh4EFaKShE0VCthqYHqC1TG98ByXpthMJrlHIRuQkCLgZR0PoScF54G0h6kg8lRA1KHNY0BS81Ue7mk1kY7b6fab0H2nTXTuA_DsE46MJMfJ8_wFnxP6yjEpa6NtVT76OUJlucfPUFrlDKPUncgLM25npyH0ZrOiiHgXa6ihsEvrbHeCj0TkmEAtRlGqcTMGS_0D9VT-A2W3KReb-t0130-ZtnfiBi1BWfJaSPzCr9EVxIwCLlGAGqhFLipipcA6QbeLlt3myprJi81LQl4DAW-4sz1AYYXhheQw4oHV4XDjA4CXJ7n5mXJOb5-DBgzTM0wwiisUIrUNv6ynjDvf8OSU0B5JtIYuA-gDG_TawzmrYAl5-WNNxC_mHu00hPDY8iZOV7BSDeN2ZL4KLhhHSJbxT6-Atsgpi8u3741I-lhhLf1voGI4UVEZvJhUAsPoeTR9XgM819Pd_DpLggNMQ_1-QkzDL92v985XHf97t872zcdbeGyElsYxfD0x_D2ifPlwwT8xnU_APz1hO9Ua2kM-8-rVPtGim7fSBe65XyB0vT43QLClvdCNzk_c4d4S_1_TsIfwX-T9JGeu6ZMmiIpxI7K-IB4jBPO011fFm1eYVInOSU5ZYmgQ5O2xHMkOlRVUu1kiRxTfuQpJjHnaVS0bdEURYVJ3iIeK5ZyGoRUkVIPQ2Rst5POTVTGPC74YadERcrNpou4VI0hhk8Bcb7XYZSdd7YM-ftq6hxLeeiT7hnRS69m454dg2Vnlt38NpK--51lZ_h0NSLYWgQ8_pefrs06eM5Tf37XQ1813Nfu-Y51PvvmbrKq7L0fXbCk2RM66fupimoTPCCccX3tR2vuqfbBGYKEjuFlVfGhxH8DAAD__9xUaKU">