* trans-stmt.c (gfc_trans_simple_do): New function.
[official-gcc.git] / libiberty / index.c
bloba2e272783b908824d6903fd8ddaf9ecdb90d2c5e
1 /* Stub implementation of (obsolete) index(). */
3 /*
5 @deftypefn Supplemental char* index (char *@var{s}, int @var{c})
7 Returns a pointer to the first occurrence of the character @var{c} in
8 the string @var{s}, or @code{NULL} if not found. The use of @code{index} is
9 deprecated in new programs in favor of @code{strchr}.
11 @end deftypefn
15 extern char * strchr();
17 char *
18 index (s, c)
19 char *s;
20 int c;
22 return strchr (s, c);