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()15char* cdecl a(){return "$Autor";} 16 17 #pragma message("Test for pascal") d()18char* pascal d(){ return "$Date$";} 19 20 #pragma message("Test for fortran") x()21char 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