topic Missed optimization on SHAPE intrinsic in Intel® Fortran Compiler

Missed optimization on SHAPE intrinsic

styc — Sat, 30 Mar 2013 18:56:32 GMT

Compile the following program with ifort 13.1.0.146. You would expect the compiler not to create a temporary copy of x(:,:,:,1,2) in subroutine f. But it does. Using UBOUND seems to be a viable workaround.

[fortran]

program test

double precision, allocatable :: x(:, :, :, :, :)

double precision y(200, 200, 200, 2, 2)

integer n1, n2, n3, n4, n5

read *, n1, n2, n3, n4, n5

allocate(x(n1, n2, n3, n4, n5))

call f(x)

call f(y)

contains

subroutine f(x)

double precision x(:, :, :, :, :)

print *, shape(x(:, :, :, 1, 2))

end subroutine

end program[/fortran]

Thanks - I agree that this is

Steven_L_Intel1 — Mon, 01 Apr 2013 18:30:41 GMT

Thanks - I agree that this is a missed opportunity, I have escalated it to the developers as issue DPD200242784.

A fix has been found for this

Anonymous66 — Sun, 05 May 2013 17:58:35 GMT

A fix has been found for this issue. We are currently planning to include in the next major release which is currently scheduled for later this year.

Annalee