main module string
	use textio
	%set use_routine_names = true

	declare
		mystring1="1"
		mystring2="12"
		mystring3="123"
		mystring4="1234"
		mystring5="12345"
		mystring6="123456"
		mystring7="1234567"
		mystring8="12345678"
		mystring9="123456789"
	
		yourstring1="1"
		yourstring2="12"
		yourstring3="123"
		yourstring4="1234"
		yourstring5="12345"
		yourstring6="123456"
		yourstring7="1234567"
		yourstring8="12345678"
		yourstring9="123456789"
	
		ourstring1 : static packed array [1..1] of char
		ourstring2 : static packed array [1..2] of char
		ourstring3 : static packed array [1..3] of char
		ourstring4 : static packed array [1..4] of char
		ourstring5 : static packed array [1..5] of char
		ourstring6 : static packed array [1..6] of char
		ourstring7 : static packed array [1..7] of char
		ourstring8 : static packed array [1..8] of char
		ourstring9 : static packed array [1..9] of char

		theirstring1 :  packed array [1..1] of char
		theirstring2 :  packed array [1..2] of char
		theirstring3 :  packed array [1..3] of char
		theirstring4 :  packed array [1..4] of char
		theirstring5 :  packed array [1..5] of char
		theirstring6 :  packed array [1..6] of char
		theirstring7 :  packed array [1..7] of char
		theirstring8 :  packed array [1..8] of char
		theirstring9 :  packed array [1..9] of char

	enddeclare
		
	procedure copy 
		param
			a : out ref packed array [1..?n] of char
			b : in ref packed array [1..?m] of char
		endparam

		for i := 1 to n
		do
			a[i] := b[i]
		endfor
	endprocedure

		ourstring3 := mystring3
		theirstring3 := mystring3

		if mystring3 = yourstring3
		do 
			tty_line ("constants of length 3 check")
		otherwise
			tty_line ("constants of length 3 dont")
		endif
	
		if ourstring3 = yourstring3
		do 
			tty_line ("statics of length 3 check")
		otherwise
			tty_line ("statics of length 3 dont")
		endif

		copy (theirstring3,mystring3)

		if theirstring3 = yourstring3
		do 
			tty_line ("loop copy to dynamics of length 3 check")
		otherwise
			tty_line ("loop copy to dynamics of length 3 dont")
		endif

		if theirstring3 = yourstring3
		do 
			tty_line ("direct copy to dynamics of length 3 check")
		otherwise
			tty_line ("direct copy to dynamics of length 3 dont")
		endif

endmodule