------- Comment #4 from pinskia at gcc dot gnu dot org  2006-03-15 15:38 -------
You can expose the bug now with:
real, dimension(12) :: x, y
real                :: z
do i = 1, 10000000
  z = g(x,y)
end do
print *, x
contains
function g(x, y)
real, dimension(:) :: x, y
real g
x = x + y
end function
end


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24520

Reply via email to