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

    <tr>
        <th>Summary</th>
        <td>
            [flang] String comparison failure with allocatable character type object
        </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:
```
character(15), allocatable :: ch1(:)
character(15) :: ch2(1)

allocate(ch1(1), source= 'xlftest team')

ch2 = 'xlftest team'

if (ch2(1) /= 'xlftest team') then
  print*, ch2(1)
  error stop 1
end if

if (ch1(1) /= 'xlftest team') then
  print*, ch1(1)
  error stop 2
end if
end
```

Flang failed when comparing `ch1(1)`. It works fine when comparing the non-allocatable entity `ch2` with the same length.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJykU82OmzAQfprhMtrIjMNPDhxoIqSe-wQGBnDr2JFtNt23r0zS3eyqOVVCQuDvx_PNjApBz5a5geIbFKdMrXFxvjkpq9kcjwvbrHfjW3N0NuiRPcaFcXLGuKu2Mw5uZJAtiBZKcX9EOyzKqyGyB6rzAugAdERljBtUVL1hTBTZ4rDkQHX6oMO_aB84Sr9uKBDtXYqB6ptEfvcIbvUDgzwhUPXbTJFDxMjqDFS9s4eF8AlkO9cTbsJ_PRGoeyqZ8rAgWsSL1zYCtekeny6MyN47jyG6C-YgWrYj6umzWf4_ZvkTM3o0Yzt-aROItjPKzjgpbXjE68IWB3e-KJ96C6V4kC7FDr9HvDr_K-CkLX-Fp8Gwzr489plt1PHtpkRQCrzquGzIoM6Mhu0cl102NnI8yIPKuMmropRS7EWdLQ2R2I-jkPUkSzWMeSXFVMr9kNdSVeVhzHRDggpRU0W5lFTvhBx6Uda5LHpRjnUNe8Fnpc3OmNfzzvk50yGs3ORFUQmZGdWzCdvsE00pC5Dt5J2NKS2itBG-SdyXfp0D7IXRIYYPtaij2XbnRi5O-CP622JsuQRnt3RXz7faH9N5n3eMbxdG1__kIWarN80S4yVse9EBdbOOy9rvBncG6pL1_fVy8S5RgLqtqgDU3Qt7behPAAAA___oKSkk">