------- Comment #1 from jakub at gcc dot gnu dot org 2009-07-03 19:30 ------- Even the inline version is wrong I think. real :: r(4), z z = 0.0 r = (/ z/z, z/z, z/z, z/z /) print *,r print *, minloc(r,dim=1), minval(r,dim=1) print *, maxloc(r,dim=1), maxval(r,dim=1) end
Not sure what minval/maxval should be in this case, but minloc/maxloc 0 looks wrong (given that for non-empty arrays it is supposed to be 1 .. arrayextent). -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40643
