Commit 163a7eea authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix cgrun067

Rename the auxiliary module to work on case-insensitive filesystems,
and add extra-cleans for it.
parent 2efd47bb
-- Bug doesn't show up on -O0 -- Bug doesn't show up on -O0
{-# OPTIONS_GHC -O #-} {-# OPTIONS_GHC -O #-}
module Cgrun067 (miscompiledFn) where module Cgrun067A (miscompiledFn) where
import Foreign.C import Foreign.C
import Foreign import Foreign
......
...@@ -73,7 +73,8 @@ test('cgrun062', normal, compile_and_run, ['']) ...@@ -73,7 +73,8 @@ test('cgrun062', normal, compile_and_run, [''])
test('cgrun063', normal, compile_and_run, ['']) test('cgrun063', normal, compile_and_run, [''])
test('cgrun065', normal, compile_and_run, ['']) test('cgrun065', normal, compile_and_run, [''])
test('cgrun066', normal, compile_and_run, ['']) test('cgrun066', normal, compile_and_run, [''])
test('cgrun067', normal, compile_and_run, ['']) test('cgrun067', extra_clean(['Cgrun067A.hi', 'Cgrun067A.o']),
compile_and_run, [''])
test('1861', extra_run_opts('0'), compile_and_run, ['']) test('1861', extra_run_opts('0'), compile_and_run, [''])
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
-- Miscompiled code must be in another module, otherwise problem doesn't -- Miscompiled code must be in another module, otherwise problem doesn't
-- show up. -- show up.
import Cgrun067 (miscompiledFn) import Cgrun067A (miscompiledFn)
import Foreign.C.String import Foreign.C.String
main = withCString "foobar" $ \p -> print =<< miscompiledFn p main = withCString "foobar" $ \p -> print =<< miscompiledFn p
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment