[Patch, Fortran,committed] Re: Cosubscript issue

[Tobias Burnus]

On 19 November 2014 at 23:20, Tobias Burnus wrote:
> Alessandro Fanfarillo wrote:
>> The sum of the three indexes, k, j and i returns a wrong image index.
> Fixed as confirmed off list by the attached patch.
>
> I intent to commit it as obvious once building and regtesting has 
> finally finished.
> Comments are nontheless welcome.

Took a while longer as it turned out that the test case didn't work for 
odd number of images. As testing showed, other compilers behave the same 
and codewise, I didn't understand:

+  if (MOD(num_images(),((P+1)*(Q+2))) .ge. 1) then
+     dim3_max = dim3_max+1
+  end if


And indeed, removing that code from the test case, it worked – and also the test program makes sense to me.

Hence, I have now committed the patch together with the fixed test case as Rev. 217966.

Tobias

-------------- next part --------------
A non-text attachment was scrubbed...
Name: commit.diff
Type: text/x-patch
Size: 4728 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20141122/52307ebb/attachment.bin>