This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate with Sarathy.
[perl5.git] / vos / test_vos_dummies.c
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
35 extern int dup (int _fildes);
36
37 int t_dummies ()
38 {
39 int  fildes;
40
41      fildes=3;
42      dup (fildes);
43 }