Commit ae3a3a9d authored by simonpj's avatar simonpj
Browse files

[project @ 2003-02-14 10:54:42 by simonpj]

Add another impicit-param test
parent 41df824d
......@@ -29,4 +29,5 @@ test('tcrun023', normal, compile_and_run, ['-O'])
test('tcrun024', normal, compile_and_run, ['-O'])
test('tcrun025', normal, multimod_compile_and_run, ['tcrun025',''])
test('tcrun026', normal, compile_and_run, [''])
test('tcrun027', normal, compile_and_run, [''])
test('church', normal, compile_and_run, [''])
{-# OPTIONS -fglasgow-exts #-}
-- Killed GHC 5.04.1
module Main where
type CTPar = ([Double],Int)
us :: (?ctPar :: CTPar) => [Double]
us = let (d,_) = ?ctPar in d
main = let ?ctPar = ([3.4],2) in print us
Markdown is supported
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