implicit none

! nella somma vettoriale si somma il primo elemento con il primo elemento
! indipendentemente dagli indici 

real, dimension(5) ::x,c,c1
real, dimension(-2:2) ::y
real, dimension(2) ::c2
integer :: i

! array constructor

x=(/1.,2.,3.,4.,5./)
y=(/10.,22.,30.,40.,50./)

! questa istruzione somma y(-2) con x(1) ....
c=x+y


! invece qui si somma x(1) con y(1)
do i=1,2
   c1(i)=x(i)+y(i)
enddo

! oppure in vettoriale :

c2=x(1:2)+y(1:2)


write(6,'("x =",5f8.2)')x
write(6,'("y =",5f8.2)')y
write(6,'("c =",5f8.2)')c
write(6,'("c1=",5f8.2)')c1
write(6,'("c2=",5f8.2)')c2

end