MODULE MySeparateFileMod

END MODULE

PROGRAM MyMain

	USE MySeparateFileMod

	REAL, POINTER :: a_xxx2

	REAL, DIMENSION(10) :: b_xxx1

	REAL, POINTER :: c_xxx1

	REAL :: e_xxx1 = 5.5

	REAL, POINTER :: o_xxx1

	REAL, POINTER :: p_xxx1

	REAL :: q_xxx1 = 3.3

	REAL, DIMENSION(5) :: r_xxx1

	REAL :: u_xxx1 = 1.1

	COMMON /MyTestFun_common3/ a_xxx2,b_xxx1,c_xxx1,e_xxx1,o_xxx1,p_xxx1,q_xxx1,r_xxx1,u_xxx1

	COMMON /MyTestFun_common1/ aVar

	REAL :: a_xxx1

	REAL :: comVar

	REAL :: aVar

	COMMON /CB1/ comVar

	print *, test

	print *, internalModVar

	CALL MySeparateSub

	comVar = 5.5

	CONTAINS

	REAL FUNCTION MyTestFun()

		COMMON /MyTestFun_common3/ a_xxx2,b_xxx1,c_xxx1,e_xxx1,o_xxx1,p_xxx1,q_xxx1,r_xxx1,u_xxx1

		REAL :: com

		COMMON /MyTestFun_common2/ com

		REAL :: q_xxx1, w, e_xxx1

		REAL, DIMENSION(5) :: r_xxx1, t

		REAL :: u_xxx1

		REAL :: o_xxx1

		REAL, POINTER :: p_xxx1

		POINTER o_xxx1, p_xxx1

		POINTER o_xxx1, p_xxx1

		REAL :: b_xxx1, c_xxx1, d

		REAL, POINTER :: a_xxx2

		POINTER c_xxx1, d

		DIMENSION b_xxx1(10)

		c_xxx1 = 1.2

		MyTestFun = 3.3

	END FUNCTION MyTestFun

	REAL FUNCTION MyTestFun2(aVar)

		REAL, DIMENSION (10:10) :: aVar

		CHARACTER (LEN=30) :: char

		REAL :: bVar(100:100)

		DOUBLE PRECISION :: cVar(10)

		REAL, PARAMETER :: b = 1.1

		REAL c

		POINTER c

		SAVE

	END FUNCTION MyTestFun2

END PROGRAM MyMain

SUBROUTINE MySub

	REAL :: test
	COMMON /CB1/ comVar

	test = 1.1

	comVar = comVar + comVar

END SUBROUTINE MySub