PROGRAM TEST_DERIVED_TYPE | |
IMPLICIT NONE | |
TYPE :: TestType | |
INTEGER :: a, b | |
END TYPE | |
TYPE(TestType) :: TestVar | |
TestVar%a = 10 | |
TestVar%b = 20 | |
CALL DISPLAYTEST(TestVar) | |
CONTAINS | |
SUBROUTINE DISPLAYTEST(Var) | |
IMPLICIT NONE | |
TYPE(TestType), INTENT(IN) :: Var | |
PRINT *, Var%a | |
PRINT *, Var%b | |
END SUBROUTINE | |
END PROGRAM |