1 2 3 4 5 6 7 8 9 10 11 12
program main use circle, only: pi use line, only: length implicit none print *,'pi=',pi length = pi print *, length end program