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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compilation error of operations on arrays of different shapes
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 18.0.0(c07062a2e9bf9aa1211b958f6bb4c5746139c180)
```

Operations on arrays of different shapes result in a compilation error.

The following are the test program, Flang-new, Gfortran and ifort compilation result.

snfmi113_7.f90:
```fortran
program main
  real a(10,10),b(10)
  a=1
  b=2
  call sub(a,b)
  print *,'pass'
contains
  subroutine sub(a,b)
    real a(:,:),b(:),c(10)
    c=sin(b)+shape(a)
    write(6,*) "c = ", c
 end subroutine sub
end program main
```

```
$ flang-new snfmi113_7.f90
error: Semantic errors in snfmi113_7.f90
./snfmi113_7.f90:10:5: error: Dimension 1 of left-hand side has extent 1000, but right-hand side has extent 2
 c=sin(b)+shape(a)
      ^
$
```

```
$ gfortran snfmi113_7.f90
$
```

```
$ ifort snfmi113_7.f90
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUVM2O4zYMfhr5QsTQj-1EBx-ycdNjDy16LSSbtrWQpUCSO923L2Qns7PZWWAGCBSTIj_-6CNVjGZyiC2pv5C6K9SaZh9aPzt_GL8W2g_fWtLQ-492hJ7_xhCNd-BHGK1y08HhCxBxBnYqaUkJP_X0SBuuOEo9SqUYZ0zL-jQ2Wld9fawaJmTPTpRwuUM-RdjPP24YVDLeRfAOVAjqW8xBBzOOGNAliLO6YYSAcbUJjAMFvV9uxm5ugCH4UL6F_GtGGL21_sW4CVRASDNCwpjgFvwU1EL4Ba6PqrLw--hDCsqBcgOYLPwQY4_9Q5DoxsUwJv45lqOkRJyfarwD7tp7WFiUuWsAAioLivATo4Rf2NYmftF3hXyYKSI69hA0ER1_CL2yFuKaPdTu-ep0C8YlIPxM-IXw403FSPhxv-29S8q4-LCNqw5-TcbhL8DepJrL5JftfCT7KvTPmQP0RHTROMJPGx7_sj3lHuKN2UswKWubLdsMB4TzHojo8kd-n_5ujW54Tni7yPqfm_wu4Z6VvHpD8KdX3bEzwTLz_8RFuWT6nXIxU_E9-5Lw60_sYPmoM8orXGcWdNuMsUx4i2M6zJl_0QwIs4qA_6U8AIzSTBHQa4JgpvkXZg9ifLDrAKT-7bUHn2vY9BiX9-r_NNo-b5-BKoZWDFJIVWDLGllT2fDjqZhb7GuuVa2VFFzIXjaVRqFrrGklh4qqwrScckElk7SilTiVVaOpZCg11k0lx4FUFBdlbGntv0vpw1SYGFdsm-Yo6sIqjTZua5TzjTZEnMfgXUI3ZK7WXRHa7HrQ6xRJRa2JKX4HSybZbQ1v64fUHVyed1kmg__gVizWYNs5pVvc5vBK-HUyaV512fuF8GuOe_873IL_in0i_LpVFAm_bkX9HwAA__8MlL2B">