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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Compilation error when declarations within threadprivate directive and explicit declarations
        </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 : 20.0.0(3496245ed3d0b4d24444260da77dcdb93512fb5a/AArch64
```

Variables defined with `threadprivate` directive and `explicit declaration` result in a compilation-time error.  
When `threadprivate` directive is removed, the compilation succeeds

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

snggy156_.f90:
```fortran
subroutine s1
  integer omp_get_thread_num
  save p1,x1
!$omp threadprivate (p1)
!$omp threadprivate (x1)
  integer x1
  procedure(ss1),pointer::p1
 interface
     subroutine ss1(i)
     end subroutine ss1
 subroutine ss2(i)
     end subroutine ss2
  end interface
!$omp parallel private(k)
  if (omp_get_thread_num() ==1) then
     p1=> ss1
  else
     p1=> ss2
  end if
  call p1(k)
  if (omp_get_thread_num() ==1) then
     if (k/=1) print *,101
  else
 if (k/=2) print *,102
  endif
!$omp end parallel
end subroutine s1

program main
  call s1
  print *,'pass'
end program main

subroutine ss1(i)
  i=1
end subroutine ss1

subroutine ss2(i)
  i=2
end subroutine ss2
```

```
$ flang-new -fopenmp snggy156_1.f90
error: Semantic errors in snggy156_.f90
./snggy156_.f90:6:11: error: The type of 'x1' has already been implicitly declared
    integer x1
 ^^
./snggy156_.f90:3:11: Implicit declaration of 'x1'
    save p1,x1
            ^^
./snggy156_.f90:7:27: error: The interface for procedure 'p1' has already been declared
 procedure(ss1),pointer::p1
 ^^
./snggy156_.f90:3:8: Implicit declaration of 'p1'
    save p1,x1
 ^^
$
```

```
$ gfortran -fopenmp snggy156_.f90; ./a.out
 pass
$
```

```
$ ifort -qopenmp -diag-disable=10448 snggy156_.f90
snggy156_.f90(6): error #6415: This name cannot be assigned this data type because it conflicts with prior uses of the name.
  [X1]
  integer x1
----------^
snggy156_.f90(7): error #6406: Conflicting attributes or multiple declaration of name.   [P1]
 procedure(ss1),pointer::p1
--------------------------^
snggy156_.f90(16): error #6424: This name has already been used as an external subroutine name. [SS1]
     p1=> ss1
----------^
snggy156_.f90(16): error #6796: The variable must have the TARGET attribute or be a subobject of an object with the TARGET at
tribute, or it must have the POINTER attribute.   [SS1]
 p1=> ss1
----------^
snggy156_.f90(18): error #6424: This name has already been used as an external subroutine name.   [SS2]
     p1=> ss2
----------^
snggy156_.f90(18): error #6796: The variable must have the TARGET attribute or be a subobject of an object with the TARGET at
tribute, or it must have the POINTER attribute.   [SS2]
     p1=> ss2
----------^
snggy156_.f90(20): error #6419: This scalar name is invalid in this context.   [P1]
  call p1(k)
-------^
compilation aborted for snggy156_.f90 (code 1)
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzUV02P27wR_jX0ZWBDGn1YPvjg_fCL99AmSBZtbwtKGtlMKFIlKe_uvy8oybZsa7Npmh5eY4GFyCHnmWeGD4fcWrFTRGuW3LHkYcZbt9dmrfdKz6tvs1yXb2uWBsNf8MCCzT_IWKEV6AoqydVurugFWLQBDBbBImCYRfEqxTihMiqDPC4xjuMY06Dky2VZlPkqSkKs8oQz3G42ptincb_zlaPBHTeC55IslFQJRSW8CLcHlgZub4iXjREH7oilAZTCUOHEgYCr0lvQayNFIRyUVEhuuBNaeUNDtpUOhAIOha4bIbupuRM1ARmjzQKgd__PPakPnAkLhmp9oJLhPbg9jfcE2xYFUWnHMT3tCSotpX4RagfcULfKkXXQGL0zvPY7bY_s-o8_Km2c4aoLTfiPsReGW3qlou089tEtxg6t2u3ewiR9XlSrgEWbK76HvQfbNje6dUIR2LAfAhDK0Y4M6Lp53pF77ul4Vm19tLD8QNCEDO9fh1UMQ4axrhu4IA8YZt5u9aHV69nqjOD1hKkxuqCyNcQws7azxftGe0PjY4w2zdG2G6t4Qce1ADCO06_OxMgbAJAqr236yYtB_ImFeJz0M1dQzuE33HApScKxyDD7Po6_8pRM8I8ZwxWw6IFFD54EX0tqBKcJu7nHUQRA0tK0ySXW6vhVcCm77P4eTP3C7wy3R4PGCOWA4YbhfRhMAb1Yg7drxsiPwM_s-nCODPdz12kKxwdmOIZQc6EuOLCj8jt7Z7hsuLUMl-e9b7e4PV83dSc6PibxXQL8YRGKjqHpXfAHWns9iPFI4ueVbkjVDZzEJOzUpHfjRdNfAl-p5sqJopdR6zX2Unw68wXD7bUmpSzahKHf47SZ10n31pC_axguvR4sYc8tcOlL7Q1yIgWi7lVevg06T-W51G5kgyWP_u9dGNEJxp_17e0xRnJ2cqt9MPp95HHJog0ubwI_CQVU2pzFzrtvpom4iv6_0MefISX7gJPmQ07GXhj-6NKfKMTd8QK8rcMe5B145HyhW3ckwB_JX_PW37Dzfw-u5qXgu3kprO9E_BEN4jibKuzLIcxSz_oxs8AwSuMw6TMsLCheExRcKe0gJxiasRKcnyy5433151Tw1hIIf-erSorC2b4LaozQBlpL1ifBNxF-y8UxCyy5-1fIkof37tD56XfKy3UAy9sAAn9S4X5A0nUwzhmRt87DMFC30olG0nWNdNC683D3eYTq58t0_u7vXfjhRAIwvkzAzTlqLZXgBxXQqyOjuBxraB8HS-6-fh2TO3nV_hrE5So9qsBhaH-hbq2DvT9UPs1Pmy9_PD6dife8-wryOHX-jQrnGecKho-uWi4W9mCG5b7D1MYX2KWbz5_-_PvT45eznyF_F5H_WtTZ_ysxA0B8NzX4v4D8C6Tmd0SOwYRwrU7psQWX3PRZEv6SP3ApfG_bS1ehlaNXN3HYJxvJazDj5xPPtXFUdnfgBUjfDBa6JBg_JaZVflauo3IVrfiM1uES4xSTNMhm-3UeRCsiJIyyuOJVxoMqidOk5KsgC5ZlOhNrDDAOMkwQ4yDIFnEaRny5oqrMeYxFwuKAai7kQspDvdBmNxPWtrQOgzTAcCZ5TtJ2j2vE_i5hiF3DiF1n5b-Sh5lZ-_XzvN1ZFgdSWGfPOzrhZPdA7x6Ensvk7lND6m-fWfIA9yOy-mS97E-9QDfc3xVdbsYPrMvX8tRT2c5aI9d75xrrhRi3DLc74fZtvih0zXDrIQ7_5o3RvpwZbjsGLMPtQMJhjf8JAAD__8ANz_8">