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