1 2 3 4 5 6 7 8
! module circle to be sure module regex doesn't allow commented modules module circle implicit none real, parameter :: pi = 4.*atan(1.) real :: radius end module circle