source: trunk/essentials/dev-lang/perl/vos/test_vos_dummies.c

Last change on this file was 3181, checked in by bird, 19 years ago

perl 5.8.8
File size: 2.4 KB
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.