------- Comment #2 from bdavis at gcc dot gnu dot org 2009-06-12 17:17 -------
i created a compilable example from the code snippet given:
INTEGER PBLJARRAYPT(341,341,1)
INTEGER NCSP0,IARRAY2,I
NCSP0 = 1
IARRAY2 = 0
DO I = 2, 341
IARRAY2 = IARRAY2 + 1
PBLJARRAYPT(I,I,NCSP0) = IARRAY2
END DO
PRINT*,'PBLJARRAYPT(2,2,1) = ',PBLJARRAYPT(2,2,1)
PRINT*,'PBLJARRAYPT(3,3,1) = ',PBLJARRAYPT(3,3,1)
PRINT*,'PBLJARRAYPT(341,341,1) = ',PBLJARRAYPT(341,341,1)
END
When ran, it gives
PBLJARRAYPT(2,2,1) = 1
PBLJARRAYPT(3,3,1) = 2
PBLJARRAYPT(341,341,1) = 340
which looks fine to me.
Unless more info is forthcoming on reproducing this bug, I think we should
close it with no further action taken.
It's only been open a month, doesn't hurt to let it sit for another :)
--bud
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40149
