[Bug fortran/102619] [10/11/12 Regression] ICE in gfc_conv_descriptor_dtype, at fortran/trans-array.c:215

[gscfq--- via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102619

G. Steinmetz <gs...@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

While synonym z0.f90 compiles, the other variants don't :


$ cat z0.f90
program p
contains
   function f(x) result(z)
      real :: x(:)
      real, allocatable :: z(:)
      z = g(x)
   end
   function g(x)
      real :: x(..)
      real :: g(size(x))
   end
end


$ cat z2.f90
program p
contains
   function f(x) result(z)
      real :: x(:)
      real, allocatable :: z(:)
      z = g(x)
   end
   function g(x)
      real :: x(..)
      real :: g(product(ubound(x)-lbound(x)+1))
   end
end


$ cat z3.f90
program p
contains
   function f(x) result(z)
      real :: x(:)
      real, allocatable :: z(:)
      z = g(x)
   end
   function g(x)
      real :: x(..)
      real :: g(product(ubound(x)))
   end
end