--- /dev/null
+/* Darwin (Mac OS X) pragma exercises. */
+
+/* { dg-do run { target powerpc-*-darwin* } } */
+/* { dg-options "-O -Wunused" } */
+
+/* The mark pragma is to help decorate IDEs. */
+
+#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'" } */
+#pragma options align mac68k /* { dg-error "malformed '#pragma options'" } */
+#pragma options align=45 /* { dg-error "malformed '#pragma options'" } */
+#pragma options align=foo /* { dg-error "malformed '#pragma options align" } */
+
+#pragma options align=mac68k
+struct s1 { short f1; int f2; };
+#pragma options align=power
+struct s2 { short f1; int f2; };
+#pragma options align=mac68k
+struct s3 { short f1; int f2; };
+#pragma options align=reset
+struct s4 { short f1; int f2; };
+
+#pragma options align=mac68k 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)
+
+ if (sizeof (struct s1) != 6)
+ abort ();
+ if (sizeof (struct s2) != 8)
+ abort ();
+ if (sizeof (struct s3) != 6)
+ abort ();
+ 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'" } */
+}