tests/ctags/bug620288.f

   1 C Bugs item #620288, was opened at 2002-10-08 08:15
   2 C You can respond by visiting:
   3 C https://sourceforge.net/tracker/?func=detail&atid=106556&aid=620288&group_id=6556
   4 C
   5 C Category: None
   6 C Group: None
   7 C Status: Open
   8 C Resolution: None
   9 C Priority: 5
  10 C Submitted By: Nobody/Anonymous (nobody)
  11 C Assigned to: Nobody/Anonymous (nobody)
  12 C Summary: fortran function definition
  13 C
  14 C Initial Comment:
  15 C
  16 C System Information:
  17 C --------------
  18 C ctags version:
  19 C Exuberant Ctags 5.3.1, Copyright (C) 1996-2002 Darren
  20 C Hiebert
  21 C   Compiled: Sep 12 2002, 10:22:42
  22 C   Addresses: <dhiebert@users.sourceforge.net>,
  23 C http://ctags.sourceforge.net
  24 C   Optional compiled features: +wildcards, +regex
  25 C
  26 C Unix:
  27 C HP-UX B.11.00 A 9000/800 551726527
  28 C --------------
  29 C
  30 C Symptoms:
  31 C --------------
  32 C I have a fortran file that has a single function.  This
  33 C function has a
  34 C return type of double precision.  I type $ctags bar.f .
  35 C This produces the expected
  36 C tags file.  However, tags does not contain the function
  37 C definition.
  38 C
  39 C This does not occur when the same function's return
  40 C type has been changed to
  41 C a integer or character data return type.
  42 C --------------
  43 C
  44 C
  45 C Examples in which I can repeat the experience with their
  46 C respective tags files:
  47 C --------------
  48 C
  49 C
  50 C foo.f
  51 C --------------
  52         integer function foo(a)
  53
  54         integer a
  55         foo = a
  56         end
  57 C --------------
  58 C
  59 C
  60 C tags
  61 C --------------
  62 C !_TAG_FILE_FORMAT     2       /extended
  63 C format; --format=1 will not append ;" to lines/
  64 C !_TAG_FILE_SORTED     1
  65 C       /0=unsorted, 1=sorted, 2=foldcase/
  66 C !_TAG_PROGRAM_AUTHOR  Darren Hiebert
  67 C       /dhiebert@users.sourceforge.net/
  68 C !_TAG_PROGRAM_NAME    Exuberant Ctags //
  69 C !_TAG_PROGRAM_URL
  70 C       http://ctags.sourceforge.net    /official site/
  71 C !_TAG_PROGRAM_VERSION 5.3.1   //
  72 C foo   foo.f   /^      integer function foo(/;"        f
  73 C --------------
  74 C
  75 C
  76 C
  77 C bar.f
  78 C ---------------
  79         double precision function bar(a)
  80
  81         double precision a
  82         bar = a
  83         end
  84 C --------------
  85 C
  86 C tags
  87 C ---------------
  88 C !_TAG_FILE_FORMAT     2       /extended
  89 C format; --format=1 will not append ;" to lines/
  90 C !_TAG_FILE_SORTED     1
  91 C       /0=unsorted, 1=sorted, 2=foldcase/
  92 C !_TAG_PROGRAM_AUTHOR  Darren Hiebert
  93 C       /dhiebert@users.sourceforge.net/
  94 C !_TAG_PROGRAM_NAME    Exuberant Ctags //
  95 C !_TAG_PROGRAM_URL
  96 C       http://ctags.sourceforge.net    /official site/
  97 C !_TAG_PROGRAM_VERSION 5.3.1   //
  98 C ---------------