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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Static initialization failure for CHARACTER type when `constant-expr` is impl-do
        </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
```
  PROGRAM InitExpCharOP
  IMPLICIT NONE

 INTEGER     :: I
  CHARACTER(10),  PARAMETER :: A(10)= '0123456789'

 CHARACTER(LEN=10, KIND=1)  :: C1(10)= [(REPEAT(A(I)(1:I),1) // REPEAT(A(I)(I+1:10), 1) , I=1,10)]

  END
```

Flang currently issues an error as:
```
./a3.f:7:41: error: Initialization expression for 'c1' ([(repeat(a(int(int(i,kind=4),kind=8))(1_8:int(int(i,kind=4),kind=8)),1_8)//repeat(a(int(int(i,kind=4),kind=8))(int(int(i,kind=4)+1_4,kind=8):10_8),1_8),INTEGER(8)::i=1_8,10_8,1_8)]) cannot be computed as a constant value
    CHARACTER(LEN=10, KIND=1)  :: C1(10)= [(REPEAT(A(I)(1:I),1) // REPEAT(A(I)(I+1:10), 1) , I=1,10)]
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
```

The code seems conforming to me. 
All ifort, gfortran and XLF compiled it successfully.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJzUVcFu4zYQ_ZrxZRBDIiWLOujASPJWaOIErg-9LSiJttnSpEFS2U2_vqCsZJttUaDoaQ3BJsH3ODNvxk_Ce3UyUlaQ30PerMQUztZVjTBK6ro-S7Pq7fha1dZ4NUqH4SzxaLW2X5Q54WBHCQmHTbI8CUd83j992vNH7IwK7ddrfRbu6Xk-6R6fH7q6O-DuaddGXsKx2x3aT-0e4wcoB8qxm8H1T3zP60O7B8LSBEgJpEZ85nv-2B7a_RuYvx_TBoEUSUpolm8KVgIplhh_veqh3QFtIqPGn7tdEzdAyvfgdfrhwvweCNu3zy0_AGExWDenwlKg_LasZz6QLZAt_hO0A3If4e9VLIQau1v0-naSN0u-2O6a72SFhG-1iJJPzkkT9Csq7yfpURiUzlmHwscSPtLWQLaCro9AeQGUZzGNG3wW2qighFZ_iKCsQfn16qT3cXm0Loo5pEAKBMJuOjh5lSIAYQIIUyZ8-wZS_67MCLTJbjUuOzbvZr0-M6D8v5HqSIqLKO3_Cf6v8Pv0c_YdKfZqCf2eQ71MKhC2YGI9sYERUN8Ib-i8iS0ehDE2YC9xsJfrFOSIwqPAwRofhAn4IvQk547jDzWkCHn7gz1_-zsdznL2L_RSXnzsydG6S3S1YPEi1wgJ51qjOloXog6nuHDCoDAj_vqwnZuqtBxRBfTTMEjvj5PWr-vVWNGxpKVYySotaJEVNMvY6lwNWdmnxabc5GmfD0nPBpGWdGRMZJIJOa5URRKSJylJ05wmGVuX_Uh7kbOUMNKXGwpZIi9C6bXWL5e1dafVbANVSmix2ay06KX2s5sTcoyGAZQfnTVBmhEIiR7vqsi966eThyzRygf_7baggp7fBrPbQN7gL0EENaD66BVHofTk5GwU75OL4fUq8ctZGoRN8jbld9FXYJOg8qguV3032tXkdHUO4Tpb1jyUJxXOU78e7AXINqaz_Nxdnf1NDgHI9mZ4QLZLsS8V-TMAAP__3HzLuQ">