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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Lowering for random_seed when PUT is an allocatable array
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

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

<pre>
    We do not support lowering the random_seed intrinsic  when they have some types of arguments.

Reproducer
```
   integer,  dimension (:), allocatable :: s
   integer :: ss
   call random_seed(size=ss)
   allocate(s(ss))
   call random_seed(PUT = s)
end
```
Currently, the following error is produced.
: flang/lib/Lower/CustomIntrinsicCall.cpp:237: not yet implemented unhandled dynamically optional arguments in SYSTEM_CLOCK or RANDOM_SEED


We need support for this version of random_seed to enable 521.wrf_r
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJxtU9tunDAQ_Rp4GRWxJpDlgYftblaqmjRVLqr6tDJ4ALfGRrbJin59x2Q32VaRwLfDHM-cM9RGzNUPBGFAGw9uGkdjPShzRCt1B75HsFwLMxwcogCpPZ072QAce9QBn6HnLwjODAh-HtGBaYHbbhpQe5dE6S5KN6_jA47WiKlBezot0tOzbAECP3YEsy2AkMTgpNEQsXWUbSJWhnOulGm457VCCKfZBtz_8W_AO9JQ3GUpxOnkH4yyHX1EzOfvTvQY8PAu4AX-Ac_35ye6cAfvPKjFhxVuJ2tJFTWHQoK2raHrjkFptNZYkA5OEomzclRGq7juIrZXsqbxNphD83Zy3gxfzo5sKbGkGUcKYNl1CAuOzuhBDqPC4AYZOOmecle0ErPmgwzlzGBGTzpz9e4bKQmPPx-fbu4O29v77Veg5B4233b3d4fHm5vdpauvIzWRDh1ybqGWAnxP9bygXUykrrjsJG8A9WJizlbJ0bYHG4sqE2VW8thLr7CK8s_7pfJ8B7fnjgy8lzxLGwYH6Cqu_-kObi2f48mqqvd-dEsL7enppO-nOmnMEDRVL-fpE0n_CxtPW-nchOTnPs_LIo37Ki1EuW4YK1a8zUS7vm5Yiaxl-XWJWdY2seI1KhdyjhjTeISFgtaUfSwrljKWFmm5yrPVKksywTK-btJ6xYu2EFfRVYoDlyoJeSTGdrGtlpTqqXMEKunoX3oDuXOyI7mX64ifT743tvotSZkmGGz5YGiOlySqpYi_ZitCeQ">