MODULE Circle
REAL, PARAMETER :: Pi = 3.1415927
REAL :: radius
END MODULE Circle
PROGRAM prog
use Circle
IMPLICIT NONE
END PROGRAM prog
