MODULE Circle
   REAL, PARAMETER :: Pi = 3.1415927
   REAL :: radius
END MODULE Circle

PROGRAM prog

use Circle
IMPLICIT NONE

END PROGRAM prog