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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Usage of assumed rank variable as a dummy argument
        </td>
    </tr>

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

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

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

<pre>
    LLVM Flang does not properly error out if an assumed rank variable is used as a dummy argument. Example - 

```
program test
   implicit none
contains
   subroutine check(var)
      class(*), intent(in) :: var(..)
      select type (var)
      end select
   end subroutine
end program test
```

LLVM-flang does not complain with this example. gfortran, on the other hand, errors out with "Assumed rank variable var may only be used as actual argument"
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJx0U8GOmzAQ_RpzGQWZIQRy4JB2m9Nub-19gAHcNTbymLT5-woSZdvtVkJGPL9nZuY9k4gZHHOtik8K8auZjIwvRsZAClEVTwktcfSh_nMnaXx3rZ-fv7_A2ZIboPMs4HyEOfiZg70Ch-AD-CWC6YEckMgycQeB3CtcKBhqLIMRWIQ7IAGCbpmmK1AYloldTOHLL5pmy7ADpZ-UPt3Xg74_2-cc_BBogsgSbwgAmGm2pjURnHd8Q1vvIhknD44sTfBLNI6hHbl9VVhdKCg8PhgA0FoSUVgpPK07-BmMi-yiwso4hUdQ-UnlJ9iUVZq-kwtbbiPE68zw4fnsujvpgW7Qo7YbvGL_NvpuErd1NWXX_21K66fZknHw08QR4mgE-DbbFIbehxjIrb15B3Fk8HHkACO5bgU3I2VzcpMrxNOHXl4owERX8M5eoeE3Y9u4kH34qhCTrs67Y36khOus1NmhLHKdJWONXB6yvC_6vDr0LWldUZmXXYEFN1nVHBJTo8Y8Q73XZV7oLM2KrsXuUJSNLoqmLdVe80TGptZeptSHITEiC9flHqsisdSwlXvUtyHdMx7qlb9rlkHUXlsjUd5OiCba7X7cFMUTfBMaGHz_n1R_kOZkCbYeY5xlTQyeFZ4HE8elSVs_KTyvP7u_dnPwP9ZE4HmrXRSet_J_BwAA___eXCnW">