--- Comment #8 from kargl at gcc dot gnu dot org 2010-04-16 16:39 ---
Set target milestone.
--
kargl at gcc dot gnu dot org changed:
What|Removed |Added
Target Mileston
--- Comment #7 from kargl at gcc dot gnu dot org 2010-04-16 16:38 ---
Taking the code in comment #1, and changing the initialization to
an assignment.
program fred
implicit none
real :: JTEJ(0:100,0:6000,6)
real :: pT(1:2, 6)
JTEJ = 1.0
pT = 2.0
write(*,*) JTEJ(0,1000,:) * pT
--- Comment #6 from dfranke at gcc dot gnu dot org 2009-12-11 22:20 ---
For the example in #1, the wrong name is picked up in trans-array.c
(gfc_trans_array_bound_check):
2310 if (!name && se->loop && se->loop->ss && se->loop->ss->expr
2311 && se->loop->ss->expr->symtree)
2312
--- Comment #5 from fxcoudert at gcc dot gnu dot org 2009-03-29 07:44
---
Wrong runtime error message is still there:
$ cat a.f90
real :: u(1,1) = 1.0
real :: v(1, 1) = 2.0
write(*,*) u(1,:) * v(2,:)
end
$ gfortran a.f90 -fbounds-check -w && ./a.out
At line 3 of file a.f90
For
--- Comment #4 from terry at chem dot gu dot se 2008-07-02 05:11 ---
(In reply to comment #3)
> I am not sure which patch did this, but I doubt it will be backported to 4.3
It already is in 4.3. ;-) As I said earlier, that warning is produced, but
easy to make go away with
integer::
--- Comment #3 from jvdelisle at gcc dot gnu dot org 2008-07-02 05:06
---
Currently 4.4 is giving:
$ gfc bounds.f90
bounds.f90:6.31:
write(*,*) JTEJ(0,1000,:) * pT(1000,:)
1
Warning: Array reference at (1) is out of bounds (1000 < 1) in dimension 1
--- Comment #2 from terry at chem dot gu dot se 2008-07-02 02:10 ---
A gentle reminder: This problem still exists as of 4.3.2 20080626.
(At least a compile-time warning is generated for Daniel's testcase. If that
1000 index is an integer variable, however, the compile-time warning goe
--- Comment #1 from dfranke at gcc dot gnu dot org 2007-12-21 10:10 ---
Confirmed.
Reduced testcase:
$> cat pr34546.f90
program fred
implicit none
real :: JTEJ(0:100,0:6000,6) = 1.0
real :: pT(1:2, 6) = 2.0
write(*,*) JTEJ(0,1000,:) * pT(1000,:)
end
$> fortran-svn -g -Wall
