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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] "No symbol found" error for derived-type component accessed via pointer
        </td>
    </tr>

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

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

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

<pre>
    With flang on the main branch (commit 9a3144d078389c19b269b8dd94b9f5306754c039):
```
$ cat test.f90 
MODULE M
  TYPE TP
    CLASS(T), POINTER :: P
  END TYPE
  TYPE T
    INTEGER I
    CLASS(TP), ALLOCATABLE :: A(:)
    CLASS(T), POINTER :: P
  END TYPE
CONTAINS
  SUBROUTINE S(X)
    CLASS(T), POINTER :: X
    PRINT *, X%P%I
  END SUBROUTINE
END MODULE
$ flang -c test.f90 
error: Semantic errors in test.f90
./test.f90:13:18: error: Internal: no symbol found for 'i'
      PRINT *, X%P%I
                   ^
```
There is no error if the allocatable array of class pointers is commented:
```
$ cat test2.f90 
MODULE M
  TYPE TP
    CLASS(T), POINTER :: P
  END TYPE
  TYPE T
    INTEGER I
    !CLASS(TP), ALLOCATABLE :: A(:)
    CLASS(T), POINTER :: P
  END TYPE
CONTAINS
  SUBROUTINE S(X)
    CLASS(T), POINTER :: X
    PRINT *, X%P%I
  END SUBROUTINE
END MODULE
$ flang -c test2.f90
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJztVMGO2jAQ_ZrkMloUnASSQw5ZYCskCmjJqtujYzvEXZMg22zF33ecAOm2K7VVLz0UhcQznnnzxn522fJz9knaGipFmz20DdhawIHKBkpNG1aDRxLWHg7SQkrDcRTxYJqEScrGaUkmaZlwnkZlWsVhMJnGEQvC1COpF-ZeMPeC3JsEl6c3SQSMWrDC2FGVBtC7P27mT6sFfOwtgOLzdgHF9moCzFb5bodMCodNZrDdLNfF4hFcnTCHW-RiPe-S3wINOC7rA-Yt34HeXrDz1Wozy4v8Hhld8JF34oYY8JeUZpt1kS_Xu-vs7un-cfNULNcLcGDPf1LieYjcPuIMblXuwhAkxmbi5fcUhkK91_n6ZR92ptfAHftxe4TWrXYVd-JAGysZdB4DqJJraB858sjDzRPm49C93NLBDWPZWKEbqty4acGcD2WroGpPDce3xiamEv9Db7_q7qefFy_eFV9RCy1AGle2owOy6uROlWpRlbRUONaanqGtgClqDBxb6fgal-aOgUCL_466yT8ib4-M_yv8fYWTQbe3jfR5FvI0TKlvpVUi8-L7B5fjxXMsTtZvBYuei5KccrnQ8lXwO3s-CieWY9ugXIAyJowRHF4lverJP2mV1dYeTbfoD_js8RY-lSPMQ0Op1-vn7qjbL4JZNKUxJ2FwEMfThPh1xkOSECFENWExYUGZUkpiggWjgApGYl_RUijjukCqjfgKHQSOsR9fZiQgJMCbe5zizZ6MgpTxcJIkNJ4GVcgTLwrwwEs1cjxGrd77Ousolae9wUkljTXDJJ4XuW9Et2gOn55s3eqM1VLJF9m8-F3xrCP_DZbbupw">