blob: 403e1c3f7f85c745696681d5ef04d94b0ec18cba [file] [log] [blame]
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