PROGRAM abounds

  IMPLICIT NONE
  REAL, DIMENSION(5) :: x, y
  INTEGER :: i

  y = 1.
  DO i = 1,7
    x(i) = float(i)*2
  ENDDO
  PRINT*, "x = ",x
  PRINT*, "y = ",y

END PROGRAM abounds
