------- Comment #1 from dominiq at lps dot ens dot fr 2008-03-16 13:46 ------- Reduced test case:
program prandtl meyer implicit none integer :: i, j integer, parameter :: imax = 100 integer, parameter :: jmax = 40 real, dimension(0:jmax,0:imax) :: f1, f1_bar do i = 0, imax-1 do j = 1, jmax-1 f1_bar(j,i+1) = f1(j,i) end do end do stop end program prandtl meyer [ibook-dhum] f90/bug% gfc -O -Wuninitialized -Wall timing/prandtl_red.f [ibook-dhum] f90/bug% I think it is a duplicate of PR27120. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35234