------- Comment #7 from burnus at gcc dot gnu dot org 2008-01-28 17:39 ------- The commit fixed the SHAPE(scalar) problem in the front end. For the library to do:
a) The following should print "1 0" but it prints "1 -8": integer :: i,j, a(10,10),res(2) j = 1 i = 10 res = shape(a(1:1,i:j:1)) print *, res res = shape(a(1:1,j:i:-1)) print *, res end b) The following should be diagnosed with -fbounds-check. NAG -C=all prints: Rank 1 of array operand has extent 2 instead of 0 integer :: i,j, a(10,10),res(2) j = 1 i = 10 res = [42, 24 ] res(2:j) = shape(a(1:1,i:j)) print *, res end I do not know whether one should check this also without -fbounds-check. I think it is not needed; however, the other compilers seem to have such a check as they print "42 24" (i.e. "res" is not modified) whereas gfortran prints "42 1". As it is invalid, both choices are OK. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34980
