--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

-- This is a test control file

test_name 	 external-nonwhite-chars-ignored
test_description Compiler accepts but completely ignores many characters at certain positions inside an external routine declaration.  These characters include !#$%^-=+\|`~{}[];'./?%/0/%/1/ and probably others.

define 		 CHARACTER "@"
copy_sub 	 Ace $TEST Ace
copy_sub 	 test.e  $CLUSTER test.e
compile_frozen
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "!"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "#"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "$"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%%"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "^"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "&"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "*"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "("
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER ")"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "-"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "_"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "+"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "="
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "\"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "|"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "`"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "~"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "["
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "]"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "{"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "}"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER ":"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER ";"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "'"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%""
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER ","
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "."
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "<"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER ">"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "?"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%/0/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%/1/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%/31/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%/127/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%/128/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%/129/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

define 		 CHARACTER "%/255/"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 syntax_error TEST 18

test_end