PR102619 test program at the very end of "submit.diff"

+program p
+  implicit none
+  real :: w(2,3)
+  real, allocatable :: y(:)
+  y = h(w)                        ! Caused an ICE !<---- indeed gFortran does this
+  if (size (y) /= product (shape (w))) stop 1
+  if (any (int (y) /= [1,2,3,4,5,6])) stop 2
+  deallocate (y)
+contains
+  function h(x) result (g)
+    real :: x(..)                                    !<----------What is this?----------------------------
+    real :: g(product(shape(x)))
+    integer :: i
+    if (any (shape (x) /= shape (w))) stop 3
+    g = [(real(i),i=1,size(g))]
+  end
+end