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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Using BOZ constant as the `SOURCE=` argument of intrinsic `TRANSFER` triggered a compile time error.
        </td>
    </tr>

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

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

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

<pre>
    Consider the following code
```
real(4), parameter :: r4_ep = transfer (Z'34000000', 1.0_4)
end

```

This seems to be a reasonable extension to use BOZ constant.

Flang is currently disallowing it as
```
error: Semantic errors in t.f
./t.f:1:41: error: Typeless (BOZ) not allowed for 'source=' argument
  real(4), parameter :: r4_ep = transfer (Z'34000000', 1.0_4)
 ^^^^^^^^^^^

```

Both ifort and XLF compile the code successfully.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJy0k01vnDoUhn-N2RwFGRuGmQULZiasrm6kfEhX2UQGjsFXxh75mLTz7yuTNGmrSl0VWYDw-eC872NFZCaH2LDqyKpzptY4-9CclTNoT6cZXdb78dqcvCMzYoA4I2hvrf9i3ASDH5Hxlu34--JtQGWZ2JdMHJg4wUUFtWDEAEy2TLYQyhe8AJNniEE50mlH7J-ZqGXJt4uJOmUWOX_ZqvAW3Zi6_NyI8fZxNgSEuBBEDz2CgoCKvFO9RcCvER0Z79LmSgjHu2cYvKOoXMzfKnRWuQkMwbCGgC7aK4yG1Pf5TARFv_TFEHxIkzzgolw0A2xfCIyDmGvG25yJLr3JtmCyLdMNPrIerxe0SJSmPt49M3EA5yNsLXEE7ZMeNfk1DMjkmYkaVJjWBV1kvAX4G_oCq27_sH4n_9HHGYz2IYJyI_z3TweDXy7G4oZJggNoHQYk0qu11zwbGzke5EFl2BS13Nd8d9jJbG72WHMhqqHkddEXWhc7rUqtx75XvB-5zkwjuKi44KUQ_CBkrmQhy1IXI1ZaYa9ZyXFRxubWvi65D1NmiFZsClHVu0NmVY-WNsqF0Ml0JlsdvIuJLSES-6FJuTf9OhEruTUU6bNaNNFup2QjhlVneKJEyI9MgaJtcLbjD3dP96fb5N-Of_gHXoNxMRhHZkhRj_ftvw_d7X0KisFMEwYcQX2qaBZ8IyfP1mCbOcYLJZ9Fx0Q3mTivfT74hYku_ej74-YS_P84RCa6TQNionuX4bUR3wIAAP__b-Yyfw">