tests/ctags/recursive.f95

   1 !       result/recursive broken
   2         MODULE approx
   3         interface
   4
   5         recursive function arcsin (angle, terms) ! no result keyword
   6                 double precision arcsin1
   7                 double precision angle
   8                 integer terms
   9         end function arcsin
  10
  11         recursive function arcsin1 (angle, terms) result (value) ! no explicit type
  12                 double precision angle
  13                 integer terms
  14                 double precision value
  15         end function arcsin1
  16
  17         double precision recursive function arcsin2 (angle, terms) result (value) ! type + recurs
  18                 double precision angle
  19                 integer terms
  20         end function arcsin2
  21
  22
  23         ! only this function seems to be found
  24         recursive double precision function arcsin3 (angle, terms) result (value ) ! recurs + type
  25                 double precision angle
  26                 integer terms
  27         end function arcsin3
  28
  29
  30         end interface
  31         double precision :: y
  32         integer :: parts
  33         END MODULE
  34
  35
  36         MODULE approx2
  37         interface
  38
  39         double precision recursive function as (angle, terms) result (value) ! type + recurs
  40                 double precision angle
  41                 integer terms
  42         end function as
  43
  44         recursive double precision function as1 (angle, terms) result (value ) ! recurs + type
  45                 double precision angle
  46                 integer terms
  47         end function as1
  48
  49         ! but now I can see this one
  50         recursive function as2 (angle, terms) ! no result keyword
  51                 double precision arcsin1
  52                 double precision angle
  53                 integer terms
  54         end function as2
  55
  56         ! .. and this one!
  57         recursive function as3 (angle, terms) result (value) ! no explicit type
  58                 double precision angle
  59                 integer terms
  60                 double precision value
  61         end function as3
  62
  63
  64         end interface
  65         double precision :: z
  66         integer :: parts2
  67         END MODULE
  68