tests/ctags/bug734933.f90

   1       MODULE MDCOMPONENTS
   2
   3       USE kindef
   4       USE memory
   5
   6       IMPLICIT NONE
   7
   8       SAVE
   9
  10       INTEGER (INT4), PARAMETER :: LIM_COMPONENTS = 1000;
  11       INTEGER (INT4) :: NUM_COMPONENTS = 0, NCOMP;
  12       TYPE COMPONENT
  13         CHARACTER (LEN=30) :: NAME
  14         INTEGER (INT4) :: NUM_PART
  15         REAL (REAL8), DIMENSION(:), POINTER :: PART_LIST
  16       END TYPE
  17
  18       TYPE COMPONENT_POINTER
  19         TYPE (COMPONENT), POINTER :: P
  20       END TYPE
  21
  22       TYPE (COMPONENT), POINTER :: COMP
  23       TYPE (COMPONENT_POINTER) :: COMP_TMP
  24       TYPE (COMPONENT_POINTER), DIMENSION(LIM_COMPONENTS) :: COMPONENTS, COMPONENTS_TMP
  25
  26       INTERFACE MEMDEALLOC
  27         MODULE PROCEDURE MEMDEALLOC_COMPONENTS_PTR
  28       END INTERFACE
  29
  30       CONTAINS
  31
  32       SUBROUTINE ADD_COMPONENTS
  33
  34       NUM_COMPONENTS = NUM_COMPONENTS + 1
  35       CALL MEMALLOC (COMPONENTS(NUM_COMPONENTS)%P, IDALL999)
  36
  37       END SUBROUTINE ADD_COMPONENTS
  38
  39       END MODULE MDCOMPONENTS