program smpl1
      implicit none         ! forces all variables to be declared
! a very simple program and here's a comment line
      real x,y
  21  format('smpl1 output',2f12.6)
      x = 23. + exp(-2.2)   ! and I can put a comment at
      y = x - 9             ! the end of a line
! write has two arguments -- unit and format
      write(*,21) x,y       ! use default output unit
      stop
      end program smpl1