gcc/testsuite/objc.dg/method-3.m

   1 /* Test for sending messages to aliased classes (and instances thereof).  */
   2 /* Author: Ziemowit Laski <zlaski@apple.com>.  */
   3 /* { dg-options "" } */
   4 /* { dg-do run } */
   5 /* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
   6
   7 #include "../objc-obj-c++-shared/TestsuiteObject.m"
   8
   9 extern void abort(void);
  10 #define CHECK_IF(expr) if(!(expr)) abort()
  11
  12 @interface Int1: TestsuiteObject
  13 + (int) classMeth;
  14 - (int) instanceMeth;
  15 @end
  16
  17 @interface Int2: TestsuiteObject
  18 + (int) classMeth;
  19 - (int) instanceMeth;
  20 @end
  21
  22 @implementation Int1
  23 + (int) classMeth { return 345; }
  24 - (int) instanceMeth { return 697; }
  25 @end
  26
  27 @implementation Int2
  28 + (int) classMeth { return 1345; }
  29 - (int) instanceMeth { return 1697; }
  30 @end
  31
  32 typedef Int1 Int1Typedef;
  33 @compatibility_alias Int1Alias Int1Typedef;
  34 @compatibility_alias Int2Alias Int2;
  35 typedef Int2Alias Int2Typedef;
  36
  37 int main(void) {
  38   Int1Alias *int1alias = [[Int1Typedef alloc] init];
  39   Int2Typedef *int2typedef = [[Int2Alias alloc] init];
  40
  41   CHECK_IF([Int1Typedef classMeth] == 345 && [Int2Alias classMeth] == 1345);
  42   CHECK_IF([int1alias instanceMeth] == 697 && [int2typedef instanceMeth] == 1697);
  43   CHECK_IF([(Int2Typedef *)int1alias instanceMeth] == 697);
  44   CHECK_IF([(Int1Alias *)int2typedef instanceMeth] == 1697);
  45   return 0;
  46 }
  47