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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compile error when component-name declared in declaration-type-spec (class) with pointer attribute is used as an argument to entry statement
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang : 21.0.0(3e6f618e86f5fbad2c2d5802416ec3d3366a2837)/AArch64
```
When `component-name (cy1)` declared in `declaration-type-spec (class)` with `pointer attribute` is used as an argument to `entry statement`, a compilation error occurs.

The following are the test program, Flang, Gfortran and ifx compilation/execution result.

snggr249_22.f90:
```fortran
module m3
  type x1
 integer::ix1
  end type x1
  type,extends(x1)::x2
  end type x2
 type,extends(x2)::x3
  end type x3
 class(x1),pointer,dimension(:)::cy1
contains
  subroutine dummy()
  entry chk(c1)
   class(x1),dimension(3)::c1
 end subroutine dummy
end module m3

subroutine s1
  use m3
  type(x1),target::ty1(3)
  ty1%ix1=[1,2,3]
 cy1=>ty1
  call chk(cy1)
end subroutine s1

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

```
$ flang snggr249_22.f90
error: loc("/work/home/ohno/CT/test/fort/tp/reproducerJ/PETA_V1020_PT3_FFE02/snggr249_22.f90":13:28): 'hlfir.declare' op for box address must not have a shape operand
error: verification of lowering to FIR failed
$
```

```
$ gfortran snggr249_22.f90; ./a.out
 pass
$
```

```
$ ifx snggr249_22.f90; ./a.out
 pass
$
```

</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJycVcGO4ygQ_RpyKSUihWMnhxw86fFq9zRatWaPLWzKNjM2WIC7k79fgd3qbFraWa0UKYB59eBV8Up6rztDdGaHL-zwtJFz6K07297YbftjU1t1O7Ocrz9efifntTVgW2gHaTpgogTc7_iOMzwKytt8f6Rj3h7aWipsUB2OHLN9To1QQuS5xKMoGJ4YVmXpmj7PGC_vGf7qyQDLeWPHyRoyYWvkSMDw2Nz2EZhzUNQM0pECnbYuUxm0Ndtwm2jrJ2oSYpDer5g3Hfq4ebLaBHIgQ3C6ngPFj9rD7EmB9CANSNfNI5kAwUYEmeBu4IMMFFfjMfECEuIJ9ZBogZyzDmzTzM7v4o14-dwTtHYY7Js2HUhHEHqCQD7A5Gzn5BjDVFHFOPittS64yG4U6PZ6H55hRVdq5kTlyM9DWEm86TqH2ekFcdeeOBPlvZxrSMbL0ap5IBgF4yVAFAmu-ziOYnTkIlCUelkDMup-TxozvNA1kFGe4fGaMpEwV3yApPlnBH4gxAMizddcraHxsuaJ4UXpkYxPMhxjhPc4sR542VgTpDY-xfRz7ewctCFQ8zjeIgJPK13MYtP_jHWxf1_9RHtPJj6okg7xxJ8YeBmX7_WNafnY5RcJZ_8P9e8Yg3QdhYUnxBJfeJede4aHmBXxxA5f9gwvyPAi2OEpSXZLH8TXcFtIGjkM71e8rXd8OHQ6DuPlWoIwSm0-sMthJ6dNAIYlwwvDYkoKFWusB-D9032cYraaxGOV8jK9l-gdg21SkpBh9WbdT4ZVb0diWEUPYlhdnhlW8dUwrGI9x9nEsHI0OavmhtwfDKtvX5_Ll-97jvzl27N4qaqvPEZ8JEZkotwLJsqlMEQJDIt-aLXbrabCsAA7QWsd1PYKUilH3sM4-wDGBujlK4EE38uJwE7kpFH3F3olp1vdLLZgWxjsG7noAMFC9fuf0Eo9kFrk-bV-3bsrfHroX2DHsJI7O4eUs5ik_xg0usv_jrdRZ6FO4iQ3dN4XGRaFKLJi05-VKo61ygpxEpy3qKhQTVbkp8Mpr9v8JDf6jBwPXKBAkZ242BVIzSErDm2t6kxwxTJOo9TDbhhex5113UZ7P9N5LzDPjptB1jT41KkQ28U3MTYtd46AbT13nmV80D74jxBBhyG1t8VpD09wScZKq2e_xX7z0Gzu-8svm8vSWT61lX_pKQ8NZTO74dyHMPnkbhXDqtOhn-tdY0eGVbzK-rednP1BTXwESRrPsFrVeT3j3wEAAP__1fNeDw">