| 1 | #include "/usr/lib/ghc-6.12.1/template-hsc.h" |
|---|
| 2 | #line 3 "Broken.hsc" |
|---|
| 3 | #define hsc_alignment(t ) printf ( "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__) |
|---|
| 4 | ); |
|---|
| 5 | |
|---|
| 6 | int main (int argc, char *argv []) |
|---|
| 7 | { |
|---|
| 8 | #if __GLASGOW_HASKELL__ && __GLASGOW_HASKELL__ < 409 |
|---|
| 9 | printf ("{-# OPTIONS -optc-D__GLASGOW_HASKELL__=%d #-}\n", __GLASGOW_HASKELL__); |
|---|
| 10 | #endif |
|---|
| 11 | hsc_line (1, "Broken.hsc"); |
|---|
| 12 | fputs ("module Main where\r\n" |
|---|
| 13 | "", stdout); |
|---|
| 14 | hsc_line (2, "Broken.hsc"); |
|---|
| 15 | fputs ("\r\n" |
|---|
| 16 | "", stdout); |
|---|
| 17 | fputs ("\n" |
|---|
| 18 | "", stdout); |
|---|
| 19 | hsc_line (4, "Broken.hsc"); |
|---|
| 20 | fputs ("\r\n" |
|---|
| 21 | "main :: IO ()\r\n" |
|---|
| 22 | "main = return ()\r\n" |
|---|
| 23 | "", stdout); |
|---|
| 24 | return 0; |
|---|
| 25 | } |
|---|
