program test
 implicit none
 integer:: i
 real:: a(5)=(/1,2,3,4,5/)
 real, dimension(5)::b,c,d
 real :: f(4)=(/5.,6.,7.,8./)
  real::e(1:9)=6.0
 b(1:5:2)=2.0
 b(2:5:2)=-9.0
 do i=1,5
 c(i)=a(i)+b(i)
 d(i)=a(i)-b(i)
 print*, a(i),b(i),c(i),d(i)
 end do 
  print*, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 c=a(1:5)+b(1:5)
 print*, c(1:5)
 print*, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
   print*, a(1:5:2)

	   print*, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
   print*, e(1:5:2)
		 print*, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
   print*, e(1:9)

	   print*, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
   print*, f(5:8:2)


   end