[Bug fortran/28660] Spurious warning: 'ubound.6' is used uninitialized in this function

[paul dot richard dot thomas at cea dot fr]

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