[project @ 1999-01-27 15:01:03 by simonpj]

Haskell 98 updates

ghc/tests/array/should_run/arr001.hs

---!!! Simple array creation
+-- !!! Simple array creation
 
 import Array
 

ghc/tests/array/should_run/arr002.hs

---!!! Array creation, (index,value) list with duplicates.
+-- !!! Array creation, (index,value) list with duplicates.
 -- 
 -- Haskell library report 1.3 (and earlier) specifies
 -- that `array' values created with lists containing dups,

ghc/tests/array/should_run/arr003.hs

---!!! Array creation, (index,value) list with out of bound index.
+-- !!! Array creation, (index,value) list with out of bound index.
 -- 
 -- Haskell library report 1.3 (and earlier) specifies
 -- that `array' values created with lists containing out-of-bounds indices,

ghc/tests/array/should_run/arr004.hs

---!!! Array - accessing undefined element
+-- !!! Array - accessing undefined element
 -- 
 -- Sample Haskell implementation in the 1.3 Lib report defines
 -- this as being undefined/error.

ghc/tests/array/should_run/arr005.hs

---!!! Array - recurrences
+-- !!! Array - recurrences
 -- 
 -- array does not evaluate the elements.
 --

ghc/tests/array/should_run/arr006.hs

---!!! Array - empty arrays
+-- !!! Array - empty arrays
 -- 
 -- print a couple of them to try to expose empty arrays 
 -- to a GC or two.

ghc/tests/array/should_run/arr007.hs

---!!! Array - accessing empty arrays
+-- !!! Array - accessing empty arrays
 -- 
 -- empty arrays are legal, but indexing them is undefined!
 --

ghc/tests/array/should_run/arr008.hs

---!!! Array - out-of-range (index,value) pairs
+-- !!! Array - out-of-range (index,value) pairs
 -- 
 -- supplying a list containing one or more pairs 
 -- with out-of-range index is undefined.

ghc/tests/array/should_run/arr009.hs

---!!! Array - derived ops
+-- !!! Array - derived ops
 -- 
 -- testing the well-behavedness of 
 -- derived ops for empty and non-empty arrays

ghc/tests/array/should_run/arr010.hs

---!!! Array - accumulated arrays
+-- !!! Array - accumulated arrays
 -- 
 --
 module Main(main) where

ghc/tests/array/should_run/arr011.hs

---!!! Array - array difference operator
+-- !!! Array - array difference operator
 -- 
 --
 module Main(main) where

ghc/tests/array/should_run/arr012.hs

---!!! Array map operations
+-- !!! Array map operations
 -- 
 --
 module Main(main) where

ghc/tests/array/should_run/arr014.hs

 {-# OPTIONS -fglasgow-exts #-}
 
---!!! multi-dimensional arrays
+-- !!! multi-dimensional arrays
 
 module Main ( main ) where
 import GlaExts

ghc/tests/ccall/should_compile/cc001.hs

---!!! cc001 -- ccall with standard boxed arguments and results
+-- !!! cc001 -- ccall with standard boxed arguments and results
 
 module ShouldCompile where
 

ghc/tests/ccall/should_compile/cc002.hs

---!!! cc002 -- ccall with ambiguous result (should be defaulted to ())
+-- !!! cc002 -- ccall with ambiguous result (should be defaulted to ())
 module ShouldCompile where
 
 a :: IO ()

ghc/tests/ccall/should_compile/cc003.hs

---!!! cc003 -- ccall with unresolved polymorphism (should fail)
---!!! not anymore (as of 0.29, result type will default to ())
+-- !!! cc003 -- ccall with unresolved polymorphism (should fail)
+-- !!! not anymore (as of 0.29, result type will default to ())
 module ShouldCompile where
 
 fubar :: IO Int

ghc/tests/ccall/should_compile/cc006.hs

---!!! cc006 -- ccall with non-standard boxed arguments and results
+-- !!! cc006 -- ccall with non-standard boxed arguments and results
 
 module Test where
 

ghc/tests/ccall/should_fail/cc001.hs

---!!! cc002 -- ccall with ambiguous argument
+-- !!! cc002 -- ccall with ambiguous argument
 module Test where
 
 f :: IO ()

ghc/tests/ccall/should_fail/cc002.hs

---!!! cc002 -- ccall with non-standard boxed arguments and results
+-- !!! cc002 -- ccall with non-standard boxed arguments and results
 
 module Test where
 

ghc/tests/ccall/should_fail/cc004.hs

---!!! cc004 -- ccall with synonyms, polymorphic type variables and user type variables.
+-- !!! cc004 -- ccall with synonyms, polymorphic type variables and user type variables.
 module Test where
 
 -- Since I messed up the handling of polymorphism originally, I'll