topic Re: An error with FOR_DESCRIPTOR_ASSIGN subroutine in Intel® Fortran Compiler

An error with FOR_DESCRIPTOR_ASSIGN subroutine

Tetsuzin — Wed, 13 Feb 2008 05:11:01 GMT

Hi, I'm using intel fortran compiler 10.1.13 and VS2005 and I currently have a problem in using FOR_DESCRIPTOR_ASSIGN subroutine. Take a look on this simply example:

use ifcore
implicit none
integer(4), pointer :: a(:)
integer(4), allocatable::buffer(:)
type(FOR_DIMS_INFO) dims_info(1)

integer::i, N

N=10

allocate(buffer(1:N))

do i=1,N
buffer(i)=i
enddo

dims_info(1)%LOWERBOUND = 0
dims_info(1)%UPPERBOUND = N-1
dims_info(1)%STRIDE = 1

call FOR_DESCRIPTOR_ASSIGN(&
a, &
LOC(buffer(1)), &
4, &
FOR_DESCRIPTOR_ARRAY_DEFINED .or. &
FOR_DESCRIPTOR_ARRAY_NODEALLOC .or. &
FOR_DESCRIPTOR_ARRAY_CONTIGUOUS, &
1, &
dims_info)

print *,a(0)

end

The resuls of this programm is:

forrtl: severe (408): fort: (3): Subscript #1 of the array A has value 0 which is less than the lower bound of 1

But lower bound of a must be 0 and upper bound must be 9

What do I do wrong?

PS. Sorry for my English.

Re: An error with FOR_DESCRIPTOR_ASSIGN subroutine

Tetsuzin — Mon, 17 Mar 2008 06:05:42 GMT

Well, I think I am doing everything right and this is BUG offortran compiler.

The same error on x64 platform.

Re: An error with FOR_DESCRIPTOR_ASSIGN subroutine

Steven_L_Intel1 — Mon, 17 Mar 2008 13:46:12 GMT

There is more than just the bounds being wrong - the array location is wrong too. I'll analyze this and see what is going on.

Re: An error with FOR_DESCRIPTOR_ASSIGN subroutine

Steven_L_Intel1 — Tue, 18 Mar 2008 19:42:29 GMT

It is just the bounds - no matter what you say for the lower bound, it sets the descriptor lower bound to 1. I'll report this to the developers.

Re: An error with FOR_DESCRIPTOR_ASSIGN subroutine

Tetsuzin — Wed, 19 Mar 2008 10:22:03 GMT

Thank you for help and analyze. I'll be waiting for the compiler updates.

Re: An error with FOR_DESCRIPTOR_ASSIGN subroutine

Steven_L_Intel1 — Wed, 19 Mar 2008 17:09:41 GMT

I would recommend that you submit a problem report to Intel Support and reference T83625-CP. I can probably come up with an alternative for you in the next couple of days.