MODULE MySeparateFileMod | |
END MODULE | |
PROGRAM MyMain | |
USE MySeparateFileMod | |
COMMON /MyTestFun_common1/ aVar | |
REAL :: a_xxx1 | |
REAL :: comVar | |
REAL :: aVar | |
COMMON /CB1/ comVar | |
print *, test | |
print *, internalModVar | |
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 | |
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) !<<<<< 61, 10, pass | |
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 | |
MyTestFun2 = 0.0 | |
END FUNCTION MyTestFun2 | |
END PROGRAM MyMain | |
SUBROUTINE MySub | |
REAL :: test | |
COMMON /CB1/ comVar | |
test = 1.1 | |
comVar = comVar + comVar | |
END SUBROUTINE MySub |