MODULE MySeparateFileMod

END MODULE

PROGRAM MyMain

	USE MySeparateFileMod

	REAL :: bvar_xxx1(100:100)

	REAL, POINTER :: c_xxx1

	CHARACTER (LEN=30) :: char_xxx1

	DOUBLE PRECISION :: cvar_xxx1(10)

	COMMON /MyTestFun2_common1/ bvar_xxx1,c_xxx1,char_xxx1,cvar_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()

		REAL :: com

		COMMON /MyTestFun_common2/ com

		REAL :: q = 3.3, w, e = 5.5

		REAL, DIMENSION(5) :: r, t

		REAL, SAVE :: u = 1.1

		REAL, SAVE :: o

		REAL, POINTER :: p

		POINTER o, p

		POINTER o, p

		REAL :: b, c, d

		REAL, POINTER :: a

		POINTER c, d

		SAVE a, r, p, b, c

		DIMENSION b(10)

		c = 1.2

		MyTestFun = 3.3

	END FUNCTION MyTestFun

	REAL FUNCTION MyTestFun2(aVar)

		COMMON /MyTestFun2_common1/ bvar_xxx1,c_xxx1,char_xxx1,cvar_xxx1

		REAL, DIMENSION (10:10) :: aVar

		CHARACTER (LEN=30) :: char_xxx1

		REAL :: bvar_xxx1(100:100)

		DOUBLE PRECISION :: cvar_xxx1(10)

		REAL, PARAMETER :: b = 1.1

		REAL c_xxx1

		POINTER c_xxx1

	END FUNCTION MyTestFun2

END PROGRAM MyMain

SUBROUTINE MySub

	REAL :: test
	COMMON /CB1/ comVar

	test = 1.1

	comVar = comVar + comVar

END SUBROUTINE MySub