testsuite/tests/ghc-regress/concurrent/should_run/conc021.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE ForeignFunctionInterface #-}
module Main where

-- !!! test for uncaught exception

foreign export ccall foo :: Int -> IO Int
foreign import ccall safe "foo" foo_imported :: Int -> IO Int

foo n = error "wurble"

main = foo_imported 3