------- Comment #5 from paul dot richard dot thomas at cea dot fr 2006-08-11 08:06 ------- Try this one! No matter what you rename 'r' as, the order of execution is wrong.
program runoptf90 implicit none real :: x(10) call simulated_annealing (x) contains subroutine simulated_annealing (zzxmin) real, intent(inout) :: zzxmin(:) character(LEN = 5+size(zzxmin)) :: x real :: r(len(x)-2) zzxmin = r print *, "here", len(x), size(r) end subroutine simulated_annealing end program runoptf90 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28660