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

    <tr>
        <th>Summary</th>
        <td>
            [flang] : read  character array
        </td>
    </tr>

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

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

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

<pre>
    - flang version
```
flang-new version 19.1.4 (https://github.com/conda-forge/clangdev-feedstock ea701dd210fdae63609dff9e817128a8f9847256)
Target: x86_64-conda-linux-gnu
Thread model: posix
InstalledDir: /home/xxx/miniconda3/envs/lf/bin
Configuration file: /home/xxx/miniconda3/envs/lf/bin/x86_64-conda-linux-gnu.cfg
```

flang will give the wrong result  if `len` of `s` is smaller than input data
- the code

``` fortran
program main
   implicit none
 character(len=1)::s(2)
    read(*,*)s
    print*,s(1)
    print*,s(2)
end program main
```
``` sh
$ gfortran 1.f90 && ./a.out
ab cd
a
c
$flang-new 1.f90 && ./a.out
ab cd
a
b
```
if `len` of  `s` is greater equal than input data

``` fortran
program main
   implicit none
    character(len=3)::s(2)
    read(*,*)s
    print*,s(1)
 print*,s(2)
end program main
``` 
``` sh
$gfortran 1.f90 && ./a.out
ab cd
ab
cd
$flang-new 1.f90 && ./a.out
ab cd
ab
cd
```


</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyslM-u6yYQxp-GbEax8OC_Cy_ce2qp--4rbMY2LYYUcE7u21c4uTe90VHVU1WKYsjwfczMLx4Zgl4sUcfKn1j5dpJ7XJ3vft4NeVGfRqe-dmeYjbQLXMkH7SzjPav448P7I3a29P4tDnmb5VkBDJs1xktgomc4MBwWHdd9zCa3MRwmZ5U8z84vlHbJRNH1PBOpEN30B5Csea4U5nxWkipR8VbNc0tNXufYyGZum6LGsmLYMt7_Kv1CkYkebk31W1Wc7_5G2_12XuyejqyepILNKTLp4MUFfWO8_8WGKI0h9aZ9-p3hsLotZXW73RgOm7b6cBMMB7LXwHAwM8Nh1KkXX5yd9bJ7GVPtszb0aRMcPk46m-blpdvfGg7v2hhY9JUgrgTv3tkFPIXdRAA9A6u4IcsqDu7YhLTUAcKWSvUQV2lB28seQckoGe_Ph9HkFN2v-X4rzM5HL1OtF-8WLzfY5FE6AOjtYvSkI1hnkxCmVXo5RfIMm5SBeMsTIdEz0QeGDd55AQAkHAwbhj3DL8d3Gx6hi9c23gNJlD9FL5GHHVkFL8n90LXvtYQ1bbGA5VEV5NnccmBYMawgYzjIzO2R8V6OMKn0ZLyf7qrnf_1fqcaXNF65_B3M4klG8kB_7tJ8gOe_EwH4AIr4_6B8ngh8iOQTRFJjj9UnmTx1P75SJ9UJ1YpWnqjLayFygU0pTms38VnVvOFlmSscp7GqOVJTjXyaiRdNedIdcixy5MjbohYik808tjTWU1PXYixKVnDapDaZMdctc3456RB26vK8wbo-GTmSCcf0RTxKYYhpEPsuCc7jvgRWcKNDDE-LqKM5RvZdUb5BmjnHeHuyBum9_Hraven-YQ4nz8fjfPHud5oiw-HIMc2oR5rXDv8KAAD__1wizYk">