===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/ctags/fortran.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -c -r1.7 -r1.8
*** src/usr.bin/ctags/fortran.c	2009/10/27 23:59:37	1.7
--- src/usr.bin/ctags/fortran.c	2012/03/04 04:05:15	1.8
***************
*** 1,4 ****
! /*	$OpenBSD: fortran.c,v 1.7 2009/10/27 23:59:37 deraadt Exp $	*/
  /*	$NetBSD: fortran.c,v 1.3 1995/03/26 20:14:08 glass Exp $	*/
  
  /*
--- 1,4 ----
! /*	$OpenBSD: fortran.c,v 1.8 2012/03/04 04:05:15 fgsch Exp $	*/
  /*	$NetBSD: fortran.c,v 1.3 1995/03/26 20:14:08 glass Exp $	*/
  
  /*
***************
*** 118,124 ****
  			continue;
  		*cp = EOS;
  		(void)strlcpy(tok, lbp, sizeof tok);	/* possible trunc */
! 		getline();			/* process line for ex(1) */
  		pfnote(tok, lineno);
  		pfcnt = YES;
  	}
--- 118,124 ----
  			continue;
  		*cp = EOS;
  		(void)strlcpy(tok, lbp, sizeof tok);	/* possible trunc */
! 		get_line();			/* process line for ex(1) */
  		pfnote(tok, lineno);
  		pfcnt = YES;
  	}