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