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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compilation error of host association using an implicit statement with a derived type
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            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 : 19.0.0(cbcdf126ccc774c063b5d5140c1393ff5305dded)/AArch64
```

The following program for a `host association` using an `implicit` statement with a `derived type` results in a compilation error.

If `subroutine` is changed to main `program`, the compilation terminates normally.   
This program (scp235_23.f90) is attached at the end.


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

scp235_2.f90:
```fortran
PROGRAM A
  TYPE T
 INTEGER X
  END TYPE T
CONTAINS
  SUBROUTINE B
    IMPLICIT TYPE (T) (C)
    TYPE T
       INTEGER A
    END TYPE T
  END SUBROUTINE B
END PROGRAM A
```

```
$ flang-new scp235_2.f90
error: Semantic errors in scp235_2.f90
./scp235_2.f90:7:20: error: 't' from host is not accessible
      IMPLICIT TYPE (T) (C)
 ^
./scp235_2.f90:8:10: because: 't' is hidden by this entity
      TYPE T
           ^
$
```

```
$ gfortran scp235_2.f90; ./a.out
$
```

```
$ ifort -diag-disable=10448 scp235_2.f90; ./a.out
$
```

scp235_23.f90:
```fortran
PROGRAM A
 IMPLICIT TYPE (T) (C)
  TYPE T
     INTEGER A
  END TYPE T
END PROGRAM A
```

```
$ flang-new scp235_23.f90; ./a.out
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJysVV2PqzYQ_TXOyygI20DCAw9sPlaRerOr3dyqfaqMMeArsCPb3G3-fWUIu_nYVve2RVESxuMzZ8YzPsxaWSshMhQ_oHg9Y71rtMl0o_S8-jYrdHnKUBKeP-EahfmvwlipFegKqpapeq7EGyCaA06DMAgRWfKClxUmCed8sYh4mNAiLmMchRzTlFZVTMO4LEWJSIrINs8Nb5JoBL-JNX4fGgGVblv9JlUNR6NrwzqotAEGKAkbbR0wazWXzEmtUBJCb70rU35ddsdWcum83TrmRCeUgzfpmnF_KYz8Lkpwp6PwPkbYvnUWpAIGXHdH2Q64IIzRJrhktqs8gO0Lo3sn1bBdWuANU7VH1NAxOZA4s_aZkRW4RlwhO2E6qZgTFpQ2HWvbUwAAU_rSvmeNyNLyI6HxH4QGVRoikvqIzDnGG1ECcwO4UOUV0c8KyYwYfJ2wbsL35LbTqfqXx0obZ5gCpkqQ_uWSOCJb8afg_ZDEWLersBPVgSnNb874DD1an1-eHl_yL3B2Ajj8_ryBw_lttz9sHjcv8Nu0utmvrzxWT_tDvtu_TuuvXx9enr4edvsNPEw2gN2X5192q91h3IrI8uDrh8hy5Xvx3e0q9PhMBPIP6y2F0XIf2Ftvsvu0zW-NJLoYsKtKDutDN_q5exUdU07ysT-Hvr33DhDZ3pzGAtGc-D_wDoXIwiGygMroDoa5kr4jHTDOhbWyaMVlVX6knCje_C2DJaI5HhgUgrPeiksO0kIjy1IoKE7g_AwI5aQ7XRL45KD88x4TkX-6Vz4peD21-zXTB_DsWaB79y-Bx9GZl5LV81Ja5itJ1ziMouV_i3V9G_zcjP3QONzV-G4Ubgfhf214-pNVmZUZLVOaspnI8ALjlCYkwbMm45RSRpkoKCGCMVwtCMYYiwRXVUTSYiYzEpIojEIc4hiHOKjSRFS4LDjmKcGYoygUHZNt0Lbfu0Cbeiat7UW2XBAcz1pWiNYOQkrIkAeieWW0ckKViBAvrybzW-dFX1sUha20zn6AOenaQYiHCxjFa1jdio8X3Vu5-9C6SejuVe5S4ma9abPGuaP13UK2iGxr6Zq-CLjuENl6Puef-dHob4I7RLZDphaR7ZDsXwEAAP__wURLkg">