------- Additional Comments From pinskia at gcc dot gnu dot org 2005-05-06
01:24 -------
Reduced testcase (I tried not to reduce it too much):
subroutine difq3 (jmax, ngmax, ams)
implicit none
integer*4 :: jmax, ngmax
real*8, dimension(32) :: ams
real*8, dimension(32) :: edd
integer*4 :: j
forall (j=2:jmax)
ams(1:ngmax)= edd(j-1)
end forall
end
But note I get a warning with ICC:
fortcom: Warning: t.f, line 8: All active combinations of index-names are not
used within the variable
being defined (i.e., leftside) of this assignment-stmt. [AMS]
ams(1:ngmax)= edd(j-1)
.........^
So I don't know if this code is valid or not.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21409
