view gcc/testsuite/objc.dg/bad-receiver-type-2.m @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* { dg-do compile } */
/* Contributed by Alexander Malmberg: PR18456 */

@interface Foo
-(void) foo;
@end

void *ip;

void (*func1)(void);

struct
{
    int a:2;
} struct1,struct2[2];

union
{
    int a:2;
} union1,union2[2];

Foo **f;

int main(int argc,char **argv)
{
  [(struct {int a;} *)ip foo];  /* { dg-warning "invalid receiver type" } */
  [func1 foo];                  /* { dg-warning "invalid receiver type" } */
  [struct1.a foo];              /* { dg-warning "invalid receiver type" } */
                                /* { dg-warning "cast to pointer from integer" "" { target *-*-* } .-1 } */ 
  [union1.a foo];               /* { dg-warning "invalid receiver type" } */
                                /* { dg-warning "cast to pointer from integer" "" { target *-*-* } .-1 } */ 
  [struct1 foo];                /* { dg-warning "invalid receiver type" } */
                                /* { dg-error "cannot convert" "" { target *-*-* } .-1 } */ 
  [union1 foo];                 /* { dg-warning "invalid receiver type" } */
                                /* { dg-error "cannot convert" "" { target *-*-* } .-1 } */ 
  [struct2 foo];                /* { dg-warning "invalid receiver type" } */
                                /* { dg-error "cannot convert" "" { target *-*-* } .-1 } */ 
  [union2 foo];                 /* { dg-warning "invalid receiver type" } */
                                /* { dg-error "cannot convert" "" { target *-*-* } .-1 } */ 
  [f foo];                      /* { dg-warning "invalid receiver type" } */
}