source: trunk/third/perl/vos/test_vos_dummies.c @ 14545

Revision 14545, 2.4 KB checked in by ghudson, 25 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r14544, which included commits to RCS files with non-trunk default branches.
Line 
1/*  +++begin copyright+++ *******************************************  */
2/*                                                                     */
3/*  COPYRIGHT (c) 1997, 1998, 2000 Stratus Computer (DE), Inc.         */
4/*                                                                     */
5/*  This program is free software; you can redistribute it and/or      */
6/*  modify it under the terms of either:                               */
7/*                                                                     */
8/*  a) the GNU General Public License as published by the Free         */
9/*  Software Foundation; either version 1, or (at your option) any     */
10/*  later version, or                                                  */
11/*                                                                     */
12/*  b) the "Artistic License" which comes with this Kit.               */
13/*                                                                     */
14/*  This program is distributed in the hope that it will be useful,    */
15/*  but WITHOUT ANY WARRANTY; without even the implied warranty of     */
16/*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either   */
17/*  the GNU General Public License or the Artistic License for more    */
18/*  details.                                                           */
19/*                                                                     */
20/*  You should have received a copy of the Artistic License with this  */
21/*  Kit, in the file named "Artistic".  If not, you can get one from   */
22/*  the Perl distribution.                                             */
23/*                                                                     */
24/*  You should also have received a copy of the GNU General Public     */
25/*  License along with this program; if not, you can get one from      */
26/*  the Perl distribution or else write to the Free Software           */
27/*  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA          */
28/*  02111-1307, USA.                                                   */
29/*                                                                     */
30/*  +++end copyright+++ *********************************************  */
31
32/* This program tests the code in vos_dummies.c to make sure it
33   works as expected.  */
34
35extern int dup (int _fildes);
36
37int t_dummies ()
38{
39int  fildes;
40
41     fildes=3;
42     dup (fildes);
43}
Note: See TracBrowser for help on using the repository browser.