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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation error when local-name of rename-list written in USE statement is specified as intrinsic_procedure_name in REDUCTION clause
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 18.0.0(cc627828f5176c6d75a25f1756d387d18539c1fb)
```

If `local-name` (ren) of `rename-list` written in `USE` statement is specified as `intrinsic_procedure_name` in `REDUCTION` clause, a compilation error occurs.  
If `intrinsic_procedure_name` is changed to max instead of ren, a compilation terminates normally.

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

snggz888_.f90:
```fortran
module m1
  intrinsic max
end module m1
program main
  use m1, ren=>max
  n=0
!$omp parallel do reduction(ren:n)
  do i=1,100
     n=max(n,i)
  end do
  if (n/=100) print *,101
  print *,'pass'
end program main
```

```
$ flang-new snggz888_.f90 -fopenmp
error: Semantic errors in snggz888_.f90
./snggz888_.f90:7:19: error: Invalid reduction identifier in REDUCTION clause.
  !$omp parallel do reduction(ren:n)
 ^^^^^^^^^^^^^^^^
$
```

```
$ gfortran snggz888_.f90 -fopenmp
$
```

```
$ ifort snggz888_.f90 -qopenmp
 pass
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJycVU1v4zYQ_TXUZWCBoqyvgw7eOC5yaLdoNr0GFDmSuaBIlaQ23f76gpLtON5tgBQQbGg4esN582aGe68Gg9iS4hMp9gmfw9G61h6N3fRfk87K7y0p6emhe0J3f6LzyhqwPfSam2Fj8AVIvoOsTmlKCauFKFlVs7ovsqoUpawKzoo-q4pS5nUls7rIG5H1HWHNCnkTYf196IGUVFvB9cbwEUlJgbDaoSGsidFJSR3Gk41WPsTjF6dCQAPKxMOnx_to9IEHHNEEUB78hEL1CiVwH32UCU4Zr8Tz5KxAOTt8PgdbUf643z_dfXn4_Fs0Cc1nj4TdAQdhx0lpHiIX6Jx1YIWYnU8BrhN4N4IHceRmQAnBwsj_BmV8QC5jekuit4ECulEZHtCDsW7kWn9Pr0n7ckTordb2RZkBuEMIR4SAPsDk7OD4GDEP57rFl19664LjBriRoOLLm4gO_azDmyDeDMM_dV0_p31DSb67KeIJb7WOVs4aYczWV4ALHzHf1YhGwo3f6bIwcmXOX85-OWd3CzX5nuT3FwiAaDnrh2WEbe04wcQd1xo1SAsO5SxiSicR5TtzESBEB0XyfYTPKD1bYcWNYVgdy6GuPonXlvaSVw-rzyHCUBpFOjllAhC2W1AvFFybCasm7j1h1SsXPyb_0wa5NbLtVUO-qRFsejuhGadTjKjW2LGPOHITlFj166Pi39Z2cU8JO9yWvCL5LmsixgXswXzjWslXnkFJNCF2m4vIl0Y6dVF6puN_lIsU9x97zgx9jM7h3Brvsflh1LXHbiD_uoaERRLvoieyzWWTNzzBNiubsqF53TTJsa0k5WXOt02-xUrSru8qWdV115VciKLDRLWMsjyjGaUsy_Im7aWoOfZ134msF7wgW4ojVzrV-tuYWjckyvsZ27Iui22ieYfaL_uCsdOlGVuUzBb5kXzXO2sCGhkPin3i2oi06ebBky2Nw9q_YgcV9LJ-lqFEij0pPn2e0Pz6Oyn2cPfDkH05ooHXrXCalOctcL0Cnh7v3xn-_zWXfybVZHa6PYYw-Tjt2IGww6DCce5SYUfCDjGZ099mcvYrikDYYWHNE3ZYiPs3AAD__9eJNPc">