gcc/testsuite/gcc.dg/pragma-darwin.c

   1 /* Darwin (Mac OS X) pragma exercises.  */
   2
   3 /* { dg-do run { target powerpc-*-darwin* } } */
   4 /* { dg-options "-O -Wunused" } */
   5
   6 /* The mark pragma is to help decorate IDEs.  */
   7
   8 #pragma mark hey hey ho
   9
  10 /* The options pragma used to do a lot, now it's only for emulating
  11    m68k alignment rules in structs.  */
  12
  13 #pragma options 23  /* { dg-error "malformed '#pragma options'" } */
  14 #pragma options align  /* { dg-error "malformed '#pragma options'" } */
  15 #pragma options align mac68k /* { dg-error "malformed '#pragma options'" } */
  16 #pragma options align=45 /* { dg-error "malformed '#pragma options'" } */
  17 #pragma options align=foo /* { dg-error "malformed '#pragma options align" } */
  18
  19 #pragma options align=mac68k
  20 struct s1 { short f1; int f2; };
  21 #pragma options align=power
  22 struct s2 { short f1; int f2; };
  23 #pragma options align=mac68k
  24 struct s3 { short f1; int f2; };
  25 #pragma options align=reset
  26 struct s4 { short f1; int f2; };
  27
  28 #pragma options align=mac68k foo /* { dg-warning "junk at end of '#pragma options'" } */
  29
  30 /* Segment pragmas don't do anything anymore.  */
  31
  32 #pragma segment foo
  33
  34 int
  35 main ()
  36 {
  37   int x, z;  /* { dg-warning "unused variable" } */
  38   #pragma unused (x, y)
  39
  40   if (sizeof (struct s1) != 6)
  41     abort ();
  42   if (sizeof (struct s2) != 8)
  43     abort ();
  44   if (sizeof (struct s3) != 6)
  45     abort ();
  46   if (sizeof (struct s4) != 8)
  47     abort ();
  48   return 0;
  49 }
  50
  51 void
  52 unused_err_test ()
  53 {
  54   int a, b;
  55   /* Trying to match on '(' or ')' gives regexp headaches, use . instead.  */
  56 #pragma unused  /* { dg-error "missing '.' after '#pragma unused" } */
  57 #pragma unused (a  /* { dg-error "missing '.' after '#pragma unused" } */
  58 #pragma unused (b) foo /* { dg-warning "junk at end of '#pragma unused'" } */
  59 }