tests/ctags/misc_types.f

   1 ! Provided by Brian Helsinki, 7 March 2003
   2 !       cexternal
   3 !       cglobal
   4 !       pexternal
   5 !       pglobal
   6 !       inline
   7 !       virtual
   8 !       volatile
   9 !       pascal
  10         program specs
  11
  12         VIRTUAL M(10,10), Y(100)
  13         VOLATILE V, Z, MAT, /INI/
  14
  15         EXTERNAL ABS ! varations of external and global
  16         CEXTERNAL ABS1 ! not supported
  17         CGLOBAL ABS2 ! not supported
  18         PEXTERNAL ABS3 ! not supported
  19 $IF DEFINED(MAC_DEP)
  20         PASCAL EXTERNAL ABS3_var2 ! not supported
  21 $ENDIF
  22         PGLOBAL ABS4
  23
  24         INTEGER INFOOBAR
  25         INLINE (INFOOBAR=00000) ! not supported
  26
  27         INTEGER M(5)
  28         DATA M/5*0/
  29
  30         CALL INFOOBAR(5,4)
  31         END
  32