------- 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