llvm-gcc-4.2/gcc/testsuite/gcc.apple/block-codegen-1.c

/* APPLE LOCAL file radar 5732232 - blocks */
/* { dg-do run } */
/* { dg-options "-fblocks" } */

#include <stdio.h>
void * _NSConcreteStackBlock;
extern void exit(int);

typedef double (^myblock)(int);


double test(myblock I) {
  return I(42);
}

int main() {
  int x = 1;
  int y = 2;
  double res = test(^(int z){|y| y = x+z; return (double)x; }); /* { dg-warning "has been deprecated in blocks" } */
  printf("result = %f  x = %d y = %d\n", res, x, y);
  if (x != 1 || y != 43)
   exit(1);

  res = test(^(int z){|x| x = x+z; return (double)y; }); /* { dg-warning "has been deprecated in blocks" } */
  printf("result = %f  x = %d y = %d\n", res, x, y);
  if (x != 43 || y != 43)
    exit(1);
  return 0;
}