view gcc/testsuite/objc.dg/super-class-3.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

/* Ensure that the compiler does not emit spurious extern declarations named '_Foo', where 'Foo'
   is an ObjC class name.  */
/* Contributed by Ziemowit Laski <zlaski@apple.com>.  */
/* { dg-do run } */
/* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */

#include "../objc-obj-c++-shared/TestsuiteObject.m"

#include <stdlib.h>
#define CHECK_IF(expr) if(!(expr)) abort()

@interface _Child: TestsuiteObject
+ (int) flashCache;
@end

@interface Child: _Child
+ (int) flushCache1;
@end

@interface Child (Categ)
+ (int) flushCache2;
@end

int _TestsuiteObject = 23;  /* Should not conflict with @interface TestsuiteObject.  */

@implementation _Child
+ (int) flashCache { return 12 + _TestsuiteObject; }
@end

@implementation Child
+ (int) flushCache1 { return 7 + [super flashCache]; }
@end

@implementation Child (Categ)
+ (int) flushCache2 { return 9 + [super flashCache]; }
@end

int main(void) {
  CHECK_IF([_Child flashCache] == 35);
  CHECK_IF([Child flushCache1] == 42);
  CHECK_IF([Child flushCache2] == 44);

  return 0; 
}