blob: 7d5d22bb667c479cd30614361a49a397fa807542 [file] [log] [blame]
/* Darwin (Mac OS X) pragma exercises. */
/* { dg-do run { target powerpc-*-darwin* } } */
/* { dg-options "-O -Wunused" } */
/* The mark pragma is to help decorate IDEs. */
extern void abort(void);
#pragma mark hey hey ho
/* The options pragma used to do a lot, now it's only for emulating
m68k alignment rules in structs. */
#pragma options 23 /* { dg-error "malformed '#pragma options'" } */
#pragma options align /* { dg-error "malformed '#pragma options'" } */
/* APPLE LOCAL 64-bit mainline */
#pragma options align natural /* { dg-error "malformed '#pragma options'" } */
#pragma options align=45 /* { dg-error "malformed '#pragma options'" } */
#pragma options align=foo /* { dg-error "malformed '#pragma options align" } */
/* APPLE LOCAL 64-bit mainline */
#ifndef __LP64__
#pragma options align=mac68k
struct s1 { short f1; int f2; };
/* APPLE LOCAL 64-bit mainline */
#endif
#pragma options align=power
struct s2 { short f1; int f2; };
/* APPLE LOCAL 64-bit mainline */
#ifndef __LP64__
#pragma options align=mac68k
struct s3 { short f1; int f2; };
/* APPLE LOCAL 64-bit mainline */
#endif
#pragma options align=reset
struct s4 { short f1; int f2; };
/* APPLE LOCAL 64-bit mainline */
#pragma options align=natural foo /* { dg-warning "junk at end of '#pragma options'" } */
/* Segment pragmas don't do anything anymore. */
#pragma segment foo
int
main ()
{
int x, z; /* { dg-warning "unused variable" } */
#pragma unused (x, y)
/* APPLE LOCAL 64-bit mainline */
#ifndef __LP64__
if (sizeof (struct s1) != 6)
abort ();
/* APPLE LOCAL 64-bit mainline */
#endif
if (sizeof (struct s2) != 8)
abort ();
/* APPLE LOCAL 64-bit mainline */
#ifndef __LP64__
if (sizeof (struct s3) != 6)
abort ();
/* APPLE LOCAL 64-bit mainline */
#endif
if (sizeof (struct s4) != 8)
abort ();
return 0;
}
void
unused_err_test ()
{
int a, b;
/* Trying to match on '(' or ')' gives regexp headaches, use . instead. */
#pragma unused /* { dg-error "missing '.' after '#pragma unused" } */
#pragma unused (a /* { dg-error "missing '.' after '#pragma unused" } */
#pragma unused (b) foo /* { dg-warning "junk at end of '#pragma unused'" } */
}