[Bug fortran/103707] Stray "Array operands are incommensurate"

[gscfq--- via Gcc-bugs]

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

--- Comment #3 from G. Steinmetz <gs...@t-online.de> ---
A quick reduction yields z1 and for comparison z2 :


$ cat z1.f90
program p
   real, parameter :: fmin(1) = 0.
   real, parameter :: fmax(1) = 1.
   print *, (fmax/fmin)**2
end

$ cat z2.f90
program p
   real, parameter :: fmin = 0.
   real, parameter :: fmax = 1.
   print *, (fmax/fmin)**2
end



$ gfortran-12-20211212 -c z1.f90
z1.f90:4:17:

    4 |    print *, (fmax/fmin)**2
      |                 1
Error: Array operands are incommensurate at (1)


$ gfortran-12-20211212 -c z2.f90
z2.f90:4:17:

    4 |    print *, (fmax/fmin)**2
      |                 1
Error: Division by zero at (1)