testsuite/tests/array/should_run/arr007.hs


1
2
3
4
5
6
7
8
9
10
11

-- !!! Array - accessing empty arrays
-- 
-- empty arrays are legal, but indexing them is undefined!
--
import Data.Array

main =
 let 
  a1 = array (1::Int,0) [(1,'a')]
 in
 print (a1!0)