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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Incorrect folding for `selected_reak_kind`
        </td>
    </tr>

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

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

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

<pre>
    ```
$ cat test.f90
program main
  print *, selected_real_kind(0,0,2)
end
$ flang-new -flang-experimental-exec test.f90 && ./a.out
 2
$ gfortran test.f90 && ./a.out
           4
$ ifort test.f90 && ./a.out
           4
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJydks9u3CAQxp8GX9Ba7OB_HDi0jSL1ljxBxJqxl4aFFeAmefuO7U22t0q1xoKZ0Tf8_JlTtB-adeIW4oGJbwwaPprCC-ZST-pWvaY4J3PhF-PCXuH8mlwonAFJfvCMHseC9iWh8S-vLlgGg6DO-gIDtauQ6l_HTN6E-RDwjR_2Lb5fMbkLhmI8JTh-UdAxHQWvGTyaOi7lBgH3afMUU0km_FNzf5q72q3q_5B-mldZLa2SylTFFY-atd-3b2LtA_8ZxpgS2cOn6K0LM62Jk-hv015302jSkrw-l3LNTBLaI8Xsynk51WO8UOL978_lQL_lF02g1OW8YKZN27VKVGfdQzOoo22taOzYNUPXSIRJ9dhNx64DVXlzQp9XUAawswIQbuU0CADRH4ejFH0LtexlZ1o1STGpQZqWNQLpIvh6ZahjmqukN5zTMmdqepdLvjdNzm4OuHmyzjdLOcekn9C9u_DsTKw2eL2R_wFOxsCj">