2021-09-13 08:51:32 +08:00
|
|
|
program main
|
2019-06-20 09:31:56 +08:00
|
|
|
use circle, only: pi
|
|
|
|
|
use line, only: length
|
|
|
|
|
implicit none
|
2014-08-04 01:37:03 +08:00
|
|
|
|
2019-06-20 09:31:56 +08:00
|
|
|
print *,'pi=',pi
|
2014-08-04 01:37:03 +08:00
|
|
|
|
2019-06-20 09:31:56 +08:00
|
|
|
length = pi
|
|
|
|
|
print *, length
|
|
|
|
|
|
|
|
|
|
end program
|
