1 /* Small code for test compiler directives and modifiers on compile time.
2  *
3  */
4 
5 #pragma message("Test for near")
6 char * near ident="$Id$";
7 
8 #pragma message("Test for far")
9 char * far r="$Revision$";
10 
11 #pragma message("Test for huge")
12 char huge c[];
13 
14 #pragma message("Test for cdecl")
a()15 char* cdecl a(){return "$Autor";}
16 
17 #pragma message("Test for pascal")
d()18 char* pascal d(){ return "$Date$";}
19 
20 #pragma message("Test for fortran")
x()21 char fortran x(){ return 1;}
22 
23 #pragma message("Test for interrupt handler")
24 int interrupt i1();
25 void interrupt i2();
26 cdecl interrupt i3();
27