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