| 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 |