program squares
! calculate squares
! JWP 29/10/98

implicit none

integer :: number, square
integer, parameter :: max = 10
!
print *, 'Squares of numbers from 1 to', max
!
do number=1, max
   square = number ** 2
   print *, 'Square of ', number, ' is ', square
end do
!
end program squares