program extract_local
    implicit none
    real :: numbers(5) = (/ 1.2, 3.4, 5.6, 7.8, 9.0 /)
    integer :: count
    count = size(numbers,1)
    print *, sum(numbers)    &
                  /          &
             count !<<<<< 6, 14, 6, 29, integer :: count, pass
end program