module circle_constant
  real, parameter :: pi = 3.14159
  end module circle_constant

  program circle_comp
! make the content of module available
  use circle_constant
  real :: r
!
  r = 2.0
  write(*,*) 'Area = ', pi * r**2
  end program circle_comp