PROGRAM TEST
USE VARS_DIAGNOSTIC
USE MOD_TEST_SUB
IMPLICIT NONE
INTEGER :: nVar
TYPE(tresultVar) , ALLOCATABLE:: VAR(:)

nVar = 5

ALLOCATE(VAR(nVar))
CALL TEST_SUB(nVar,VAR)


ENDPROGRAM


