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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Incorrect execution result of initializing an array using vector subscript
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 17.0.0(633146093c4ea78dc8f56a27006fe4eed84be370)
```

The character array a1(1) is initialized with uppercase letters, but printed with lowercase letters.
a2(1) and a3(1) are correct.

The following are the test program, results of flang-new, gfortran and ifort compilation and execution.

z01.f90:
```fortran
program main
 character(len=30),parameter:: a1(1)=(/&
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"/)

 character(len=30),parameter:: a2(1)=(/&
&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"/)

 character(len=30),parameter:: a3(1)=(/"ABCDEFGHIJKLMNOPQRSTUVWXYZ"/)

  write(6,*) "a1(1) = ", a1(1)
  write(6,*) "a2(1) = ", a2(1)
  write(6,*) "a3(1) = ", a3(1)
end program main
```

```
$ flang-new -flang-experimental-exec z01.f90; ./a.out
 a1(1) = abcdefghijklmnopqrstuvwxyz
 a2(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
 a3(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
$
```

```
$ gfortran z01.f90; ./a.out
 a1(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
 a2(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
 a3(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
$
```

```
$ ifort z01.f90; ./a.out
 a1(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
 a2(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
 a3(1) = ABCDEFGHIJKLMNOPQRSTUVWXYZ
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzUVVtzqzYQ_jXiRWNGrADDAw-OXben98vp6eVNwAJKBaKSiJP8-o4wcWKfTHr80JmeGY9By66-3U-7-oS1sh0QC5LckGQXiMl12hS6G_SquQ1KXT8UJGXLj-0I23xAY6UeqG5oo8TQrgY8UMI3NFqHLGQEspTzKE5ZzqsYxTqrq6xJUgFrxtIGY8Q6i0vka0YgP255gXD8f98hrTphROXQUGGMeKAiIpBFBHIqLZWDdFIo-Yg1PUjX0Wkc0VTCIlXoHBpLYEvLydHRyME9eSl9OPcKj3gCnvYWQ00FP60M0kobg5ULL_NrtFL6IId29nIdUofW4-nWiN7DG7STcvaMLW9vG22cEcMMJv2CVrofpRLOk-uteI_V5FdnsI8sCpucEb654G7Z8GhdMqC9kIvlmUsCmcKB8B2fTwC2ozCiR_-Fb_xBnlgmfEcgI7AnkC5oAJub7e6L_Zdfvfv6m2-_-_6HH3_6-Zf3v3747fc__iQAs2_-Mt9rcOEN3PS_heYfQ18NRw9GOvQDQGBLYOO7hwA8Ny3hOzqHbl9w_HYsvBYLnxbLX4vlZ7E41PTjXnl1Hi-NEL-Y_9XxFe9HNLLHwQm18v1LT-16Q0MCexHqyS1pn_MiyqrGpu3k7V-qH_T4t7FuujvcPzw-uZ9R8cbZLO78GncC8XWln-b3kwv894z_VwUe76TPvLqgLnid81wEWERpFkUMkjwOugLzCgCSSEQV1HFSA64xTrMyj0uWIpSBLIABZ3HEWJyknIdllpY1W4skXucATUlihr2QKlTqrg-1aQNp7YRFCozngRIlKvukqqbwTqtyai2JmZLW2ecwJ52a9XceIZLs6Lth0ZtnCVh0xMvISfZm2RkWZZysX95h5bShdiptZeTogsmoonNutP6e8zfWvpWum8qw0j2BvU9ieaxGo2-xcgT2cyGWwH6u5Z8AAAD__3oEPfs">