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

   1 /* Check that sending messages to variables of type 'Class' does not involve instance methods,
   2    unless they reside in root classes.  */
   3 /* Author: Ziemowit Laski <zlaski@apple.com>  */
   4 /* { dg-do compile } */
   5 /* { dg-options "-Wstrict-selector-match" } */
   6
   7 #ifdef __NEXT_RUNTIME__
   8 # include "../objc-obj-c++-shared/F-NSObject.h"
   9 # define OBJECT NSObject
  10 #else
  11 # include <objc/Object.h>
  12 # include <objc/Protocol.h>
  13 # define OBJECT Object
  14 #endif
  15
  16 @interface Base
  17 - (unsigned)port; /* { dg-line Base_port } */
  18 @end
  19
  20 @interface Derived: Base
  21 - (OBJECT *)port;
  22 + (Protocol *)port; /* { dg-line Derived_port_last } */
  23 - (id)starboard;
  24 @end
  25
  26 void foo(void) {
  27   Class receiver;
  28
  29   [receiver port];  /* { dg-warning "multiple methods named .\\+port. found" } */
  30        /* { dg-message "using .\\-\\(unsigned( int)?\\)port." "" { target *-*-* } Base_port } */
  31        /* { dg-message "also found .\\+\\(Protocol \\*\\)port." "" { target *-*-* } Derived_port_last } */
  32
  33   [receiver starboard];  /* { dg-warning "no .\\+starboard. method found" } */
  34   /* { dg-warning "messages without a matching method signature will be assumed to return .id. and accept .\.\.\.. as arguments" "" { target *-*-* } 0 } */
  35
  36   [Class port];  /* { dg-error ".Class. is not an Objective\\-C class name or alias" } */
  37 }