blob: 34f25bfbb9352938a7c12fa03968e1c712308692 [file] [log] [blame]
use circle, only: pi
use line, only: length
implicit none
print *,'pi=',pi
length = pi
print *, length
end program