1 /* Test for situations in which protocol conformance information
2 may be lost while casting. */
3 /* Author: Ziemowit Laski <zlaski@apple.com>. */
4 /* { dg-do compile } */
6 /* One-line substitute for objc/objc.h */
7 typedef struct objc_object { struct objc_class *class_pointer; } *id;
20 Obj <Proto> *objrcvr2;
22 receiver += [receiver someValue]; /* { dg-warning "invalid receiver type .long int." } */
23 /* { dg-warning "Messages without a matching method signature" "" { target *-*-* } 22 } */
24 /* { dg-warning "will be assumed to return .id. and accept" "" { target *-*-* } 22 } */
25 /* { dg-warning ".\.\.\.. as arguments" "" { target *-*-* } 22 } */
26 /* { dg-warning "assignment makes integer from pointer without a cast" "" { target *-*-* } 22 } */
28 receiver += [receiver anotherValue]; /* { dg-warning "invalid receiver type .long int." } */
29 /* { dg-warning "assignment makes integer from pointer without a cast" "" { target *-*-* } 28 } */
31 receiver += [(Obj *)receiver someValue]; /* { dg-warning ".Obj. may not respond to .\\-someValue." } */
32 /* { dg-warning "assignment makes integer from pointer without a cast" "" { target *-*-* } 31 } */
34 receiver += [(Obj *)receiver anotherValue];
35 receiver += [(Obj <Proto> *)receiver someValue];
36 receiver += [(Obj <Proto> *)receiver anotherValue];
37 receiver += [objrcvr someValue]; /* { dg-warning ".Obj. may not respond to .\\-someValue." } */
38 /* { dg-warning "assignment makes integer from pointer without a cast" "" { target *-*-* } 37 } */
40 receiver += [objrcvr anotherValue];
41 receiver += [(Obj <Proto> *)objrcvr someValue];
42 receiver += [(Obj <Proto> *)objrcvr anotherValue];
43 receiver += [objrcvr2 someValue];
44 receiver += [objrcvr2 anotherValue];
45 receiver += [(Obj *)objrcvr2 someValue]; /* { dg-warning ".Obj. may not respond to .\\-someValue." } */
46 /* { dg-warning "assignment makes integer from pointer without a cast" "" { target *-*-* } 45 } */
48 receiver += [(Obj *)objrcvr2 anotherValue];