https://gcc.gnu.org/bugzilla/show_bug.cgi?id=106566
Bug ID: 106566
Summary: [OpenMP]
Product: gcc
Version: 13.0
Status: UNCONFIRMED
Keywords: openmp, rejects-valid
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: burnus at gcc dot gnu.org
CC: jakub at gcc dot gnu.org
Target Milestone: ---
The OpenMP example
https://github.com/OpenMP/Examples/blob/v5.2/SIMD/sources/linear_modifier.1.f90
is rejected as:
13 | !$omp declare simd(add_one2) linear(p: ref) simdlen(8)
| 1
Error: Symbol ‘add_one2’ at (1) has already been host associated
if it is a module procedure. When commenting the 'module ... contains' and 'end
module', it compiles just fine.
(Similar the .2 and .3 in the examples.)
