4.3BSD/usr/contrib/icon/libtest/t-i-split.dat

record a(b,c,d)

global x, y

procedure f1()
   write("f1")
end

procedure f2()
   write("f2")
end

procedure f3()
   write("f3")
end

procedure f3()
   write("f3")
end

global A
gloabl B
global C

record f(g,h,i)