tests/ctags/enumerators.f90

   1 module Enums
   2   real :: somevar
   3
   4   ! we now have enumerators in F2003/8, for the sake of interop with C
   5   enum, bind(c) ! unnamed 1
   6     enumerator :: red =1, blue
   7     enumerator gold, silver, bronze
   8     enumerator :: purple
   9   end enum
  10
  11
  12   ! here follow nonstandard enum declarations, which may become valid in a later standard
  13   ! no real harm implementing these as long as valid stuff isn't broken
  14   enum
  15     enumerator :: no_c_binding
  16   end enum
  17
  18   enum :: Colons
  19     enumerator :: r
  20   end enum
  21
  22   enum BodyPart
  23     enumerator :: arm, leg
  24   end enum
  25
  26   enum(8) Paren_kind
  27     enumerator :: b
  28   end enum
  29
  30   enum*8 Aster_kind
  31     enumerator :: c
  32   end enum
  33
  34   enum(8) :: Paren_colon
  35     enumerator :: d
  36   end enum
  37
  38   enum*8 :: Aster_colon
  39     enumerator :: e
  40   end enum
  41
  42   enum, bind(c) :: Name_colon
  43     enumerator :: d
  44   end enum
  45
  46   ! another entry to verify the parsing hasn't broken
  47   real, parameter :: othervar
  48
  49 contains
  50
  51   function Func(arg)
  52   ! ...
  53   end function Func
  54
  55 end module Enums