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

    <tr>
        <th>Summary</th>
        <td>
            [flang][openmp] real(10) prevents compilation even when it is not used in device code
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          VeeEM
      </td>
    </tr>
</table>

<pre>
    At least for amdgpu, code containing real(10) can no longer be compiled with offloading enabled after 2bfb3bae69718525fd9b1dc6e2dec9387c647a9e.

Compiling a program containing a real(10) variable used to print a warning, now it's an error:
```
program prog1
real(10) :: x
end program
```
```
$ flang-new -fopenmp -fopenmp-targets=amdgcn-amd-amdhsa --offload-arch=gfx90a prog1.f90
error: Semantic errors in prog1.f90
./prog1.f90:2:1: error: REAL(KIND=10) is not an enabled type for this target
  real(10) :: x
  ^^^^^^^^^^^^^
```

Using a module containing real(10) is also an error now, previously this did not even print a warning:
```
module m
contains
subroutine f(x)
real(10) :: x
end subroutine
end module
```
```
program prog2
use m
end program
```
```
$ flang-new -c m.f90
$ flang-new -fopenmp -fopenmp-targets=amdgcn-amd-amdhsa --offload-arch=gfx90a prog2.f90
error: Semantic errors in prog2.f90
./m.mod:5:1: error: REAL(KIND=10) is not an enabled type for this target
  real(10)::x
  ^^^^^^^^^^^
```
I'm thinking real(10) should probably only be an error if used on device.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJy0lV2PozYUhn-Nc3OUyBwChAsu2M1GWvXjolV7b_AB3Bob2SYz-feVgcxMdrTtqNJKRBDk8_W-D7bwXvWGqGLZJ5add2IOg3XVn0Rfftk1Vt6qOoAm4QN01oEYZT_NDD9DayVBa00QyijTgyOhGZ4SzrCEVhgwFrQ1PTlo4sJxUpokPKkwgO06bYWMYWREE9-LLpADbLombQTlZZGcMsw6WTaJbHNCSW2Znoo2PxaipAPjNeP15yVrTCNgcrZ3Ynzbknhs6iqcisVg9iQhWJicMgEEPAkX18epjH0CFRgWHoQBcs46lsZSLOfbxet7qXhPGK8fqsTlaQ3PjNdk5L2tbzI8POMROi1Mvzf0BPvOTmTG6eVhH4TrKXiWnqP4rdmLUcbf4AXs95uUe-HagaXnvnsu-SpGcujKmP8-BPxOozBBtetYHpR5WHdgeHn9n9bI0jqJcS8JfvtS_8zw9NPXX88sPa_jKg_GhkWszclwm2hhJQzKw9o94zXA92QCYNmXD13fCMfrP_zq82jlrL-Po_IgtLcvlkabo9uTo6uys9e3tVmp5DINXcm8o-MdBlvR6O1W2DNe-7lxdg7KEHQMT88My_9A5DVie7Em_hdk3gKIjNezX9v4X8C1MG4E_CgS8YMk4hsSx8NoJUvr7EdSuBrxUQYfVfzKsBhjdvP3O978YGe9WNGIRt_AGn2Lu-ALf6pbNyFrQNJVtXTYySqVZVqKHVVJceQ8P_I02w0VTwnTo-gEJTzvqG2KU551oshbLEssmp2qkGPGEXmS8SLBg0zLrCxPSHmaZckxZ0dOo1D6oPV1PFjX75T3M1UJnniS7bRoSPtl_0dc7GeI8ShwVQzYN3Pv2ZFr5YN_TRFU0MuhsUZkZ5Z9WjFh2flRjfiVkQl-OwREUNasn9jTQAZUuNu3SKLukiwnzG52uhpCmHz0Ci8ML70Kw9wcWjsyvMR-ttt-cvYvagPDyzKfZ3jZRrxW-E8AAAD__6NvHaE">