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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compile error when argument keyword is specified in argument of c_sizeof intrinsic module function
        </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 : 21.0.0(b2b3cb5f76f15d38e67f70124d275a5696bfdb83)/AArch64
```

When `argument keyword` is specified in `argument (actual argument specifier)` of `c_sizeof intrinsic module function`, a compilation error occurs.  
Although the types of `intrinsic module functions` are different, this issue is similar to [128610] (https://github.com/llvm/llvm-project/issues/128610).

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

sngtm016_2.f90:
```fortran
program main
  use iso_c_binding
 real(c_float) :: r
  real(c_float),pointer ::p
  type(c_ptr) :: leftptr
 print *,c_sizeof(r)
  print *,c_sizeof(x=r)
  leftptr=c_loc(x=p)
end program main
```

```
$ flang sngtm016_2.f90
error: Semantic errors in sngtm016_2.f90
./sngtm016_2.f90:7:20: error: unknown keyword argument to intrinsic 'sizeof'
    print *,c_sizeof(x=r)
 ^
$
```

```
$ gfortran sngtm016_2.f90; ./a.out
                    4
 4
$
```

```
$ ifx sngtm016_2.f90; ./a.out
 4
                     4
$
```

</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJykVU2P4ygQ_TWVS2ksDP7KwQd392Z_wK52jxHGYDODwQI83b2_foXj9GTSavVIE0WJgUq9esV7FR6CHq2ULZQPUD4d-Bon51s3WfdFfT30bnhtoSL7m3T_SB-0s-gUKsPtiMA6pHlGMgK06WnPRF-qulJ5ObBGVrWqSU6LgdYlL6tj1auhbxjQI9BT13kxVQWQ7hYBSPfvJC1CRbgf11naiN_k67PzA1QEdcCwSKGVlgPqn8OANlzElRt827rG-gRZkVQ3VEScg_5POoXaRq9t0AJnN6xGolqtiNrZVAt9RI7CzYs2PO2h9N55dEKsPmSIQLrOxMmt44RxkhhfFxl2hA8Th1QF9xIHrZT00saEEycdUIewyo2gnrXhHqNDKB9y2lQ5gfIp8ZtiXAKwDugJ6GnUcVr7TLgZ6MmY79evL4t3X6WIQE9b0gD0tKehx-zS5L8nicoZ4561HbeKNg4yRFy8Gz2fU2GndMnp4U_lfPTcIrcDavVy2xigJ_kixbo1ycuwmriDBDvGmeTVmWbqSFLdN5e9ZwTS7YA4c52WiGtIjXBnce61HbQd066X3ABtxFkZxyPQYxJf0p_ffvPuGOjj4rSN0u-ByxaXrmmLW6K_SWKkimmHdLh4vampA_p4lQrQZtNQyvDB-Quwp7eYazr2JM7Gif14uRxLO-Ad5zsL_LSkxW62u3aSblNkqv4vOXMbtbhoNCRnvAvOgJ7eXUgNrKPpAd9yrfabdc_26rofZoruxjBA6yvzemP8S32B8o8Lo88pj1fF3df8gIkJz9wad-D7V8q-ffwSUFLzJxjFB0AfgByGlg1HduQH2eZ1wVhTkjw_TO1QCNKToeCqFlINvBTHoihJkdeyYEyUB91SQkvCWE5yVpV5xjgvJKNCNaUq-qaAgsiZa5Mln2fOj4fN4W3OWFWTg-G9NGGb5pRuogHWKe9slHYAStOM9-02I_p1DFAQo0MMP7JFHc32b3BxfvmEj5vR5T79ntNsvh_M76byW4BT-PmwPazetL8x2S7Uv7f0_wAAAP__qfAQMQ">