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

    <tr>
        <th>Summary</th>
        <td>
            Fortran submodule problem
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

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

<pre>
     > cat ignore_tkr.F90 
module machin
 implicit none
  interface ignore1
  module subroutine ignore1(array)
    implicit none
    integer, dimension(*) :: array
#if defined(IGNORE)
!DIR$ ignore_tkr array
#endif
  end
 end interface
end module
 > cat truc.F90 
submodule(machin) truc
  use machin
  implicit none
contains
  module procedure ignore1
    implicit none
    call tagada1(array)
  end
end submodule
======================================
 > flang-new -c ignore_tkr.F90 
[software@nemesis ~/GITHUB-ECCC/librmn/build : (dev_alpha *%|u=)]
 > flang-new -c truc.F90 
error: Semantic errors in truc.F90
./truc.F90:2:7: error: Module 'machin' cannot USE itself
 use machin
        ^^^^^^
./truc.F90:2:7: error: Cannot use-associate 'ignore1'; it is already declared in this scope
    use machin
 ^^^^^^
./truc.F90:5:20: Previous declaration of 'ignore1'
    module procedure ignore1
 ^^^^^^^
=====================================
 > flang-new -c ignore_tkr.F90 -DIGNORE
error: Semantic errors in ignore_tkr.F90
./ignore_tkr.F90:6:30: error: !DIR$ IGNORE_TKR may apply only in an interface or a module procedure
      integer, dimension(*) :: array
 ^^^^^
========================================

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzMVV2v4jYQ_TXDiwUKTkLIQx64QLZXVT90d_f5amJPwK1jI9thxUt_exWSAAusdvvSFkUimoznnDlzMkHv1c4QFZC-QLqZYBv21hVNfUStzKSy8lQwiLdMYGBqZ6yj9_Cnm5V5xCDaQLRqrGw1sQbFXpk-xFRz0EqowIw1NMSYMoFcjYKGOvPxwVDBt5WzbVDmmsCX6ByegOdjLnteu6--Iwd8zaRqyHhlDfAl8BXwnEG8gnjF-mrnM8BjVTNJtTIkgS9fP_z629v2ggR8vnl9A57cNH13nIxU9UiAjBxuychrq32sC_VNDjmjoMG14kZK31ZDGl8OevL8nDTCtP5O6WdyCGsCKuPv9D04K0i27kH_b2oqUGsWcIcSn83i0nPX35V7r0-8-bevq7S1RrObGvrCpuK5aSF98bYOX9ARJJGhhrzy7C_g5YfXTz99fplu1-s18FKryjUGeFm1SsvORgz4UtLxHfVhj-xsrxSyddsx4Dmk3-RxN2tyzrqu3kdq0AQl2DnimTKX1D5zBry8ROIVh3iVdQcvFX7p5ws8G02TMYHG2MA-f9wyFTzp0aiPBup_kG7vrx8DX_dAracpem-FwnCmcnmFM4hfmApMeYbaEcoTkyQ0OpLnXvfKMy_s4cZ3DyR_kF3aMexu2O-Ojsq2foDCoKxhtr4jdgH8zhvyBH5k8P80-XQzrLPvWu3rg1dV7-LxagHxKo6-Gv11R_Zo759-fmMNnhgeDvrErNGnDgLNzeq3juGD3LdW_Kd7_GE4_9X6uZnPRBaxzOMcJ1TMMx6laZLP08m-SBYU5SJLo7SWGaYccxkn0UIuFjjPRJZPVMEjnkRZlM_zNJ2nsyyLxSIRokqjBOUihySiBpWeaX1sZtbtJsr7lop8yefRRGNF2p-_5Zx31jg_BM67T7srujPTqt15SCKtfPDXKkEFTUVpXXBorsu8m1GlqZm0Thf7EA6-mwAvgZc7FfZtNRO26fakPo5_04Ozf5AInYk6dA-87NkdC_53AAAA__9UnGYO">