xref: /csrg-svn/usr.bin/f77/libF77/CCI/outstr_.c (revision 29957)
1*29957Smckusick /*
2*29957Smckusick  *	@(#)outstr_.c	5.1 (Berkeley) 11/03/86
3*29957Smckusick  */
4*29957Smckusick 
5*29957Smckusick #include <stdio.h>
6*29957Smckusick 
7*29957Smckusick /* print a character string */
8*29957Smckusick outstr_(s, n)
9*29957Smckusick register char *s;
10*29957Smckusick register long n;
11*29957Smckusick {
12*29957Smckusick while ( --n >= 0)
13*29957Smckusick 	putchar(*s++);
14*29957Smckusick }
15