squashed commit of private hostlib-resource branch
[tangerine.git] / test / librarytest.c
blobb4919b2f5009ff93135f6e1bc4eea8b98baef9fc
1 /*
2 Copyright © 1995-2002, The AROS Development Team. All rights reserved.
3 $Id$
4 */
6 #include <proto/exec.h>
7 #include <proto/dos.h>
8 #include <proto/arossupport.h>
9 #include "dummylib_gcc.h"
11 static const char version[] = "$VER: librarytest 41.1 (14.3.1997)\n";
13 int main (int argc, char ** argv)
15 int a=1,b=2,c=0,d=0;
16 struct dummybase *dummybase;
18 dummybase=(struct dummybase *)OpenLibrary("dummy.library",0);
20 if(dummybase!=NULL)
22 ULONG vec[3];
24 c=add(a,b);
26 d=asl(a,b);
28 vec[0]=a;
29 vec[1]=b;
30 vec[2]=c;
31 VPrintf("%ld+%ld=%ld\n",vec);
33 vec[0]=a;
34 vec[1]=b;
35 vec[2]=d;
36 VPrintf("%ld<<%ld=%ld\n",vec);
38 Flush (Output ());
40 CloseLibrary((struct Library *)dummybase);
43 return 0;