Dear all,
the following code fails (with version 21.7):
program main
integer :: n(2,1)
n(:,1) = (/ 2,2 /)
write(*,*) ( sum( (/ (n(l,i),l=1,2) /) ),i=1,1)
write(*,*) (/ ( sum( (/ (n(l,i),l=1,2) /) ),i=1,1) /)
j = maxval((/ ( sum( (/ (n(l,i),l=1,2) /) ),i=1,1) /))
write(*,*) j
end
The output is:
4
0
0
But it should be:
4
4
4
(GFortran, Intel Fortran, etc. work correctly.)
Thank you.
Regards
Christoph