1 files changed, 108 insertions, 0 deletions
diff --git a/test/trans.d/case/gotocallret3_crack.rl b/test/trans.d/case/gotocallret3_crack.rl
new file mode 100644
index 00000000..73164ef8
--- /dev/null
+++ b/test/trans.d/case/gotocallret3_crack.rl
@@ -0,0 +1,108 @@
+//
+// @LANG: crack
+// @GENERATED: true
+//
+
+import crack.io cout;
+import crack.lang Buffer;
+
+byte comm;
+int top;
+array[int] stack = [ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ];
+
+%%{
+	machine gotocallret;
+
+	# A reference to a state in an unused action caused a segfault in 5.8. */
+	action unusedAction {fentry(garble_line);
+}
+
+	action err_garbling_line {cout.format( "error: garbling line\n" );
+}
+	action goto_main {fnext main;}
+	action recovery_failed {cout.format( "error: failed to recover\n" );
+}
+
+	# Error machine, consumes to end of 
+	# line, then starts the main line over.
+	garble_line := ( (any-'\n')*'\n') 
+		>err_garbling_line
+		@goto_main
+		$/recovery_failed;
+
+	action hold_and_return {fhold;fnret;}
+
+	# Look for a string of alphas or of digits, 
+	# on anything else, hold the character and return.
+	alp_comm := alpha+ $!hold_and_return;
+	dig_comm := digit+ $!hold_and_return;
+
+	# Choose which to machine to call into based on the command.
+	action comm_arg {if ( comm >= 97 )
+{
+	fncall alp_comm;
+} 
+else {
+	fncall dig_comm;
+}
+}
+
+	# Specifies command string. Note that the arg is left out.
+	command = (
+		[a-z0-9] @{comm = fc;
+} ' ' @comm_arg @{cout.format( "prints\n" );
+} '\n'
+	) @{cout.format( "correct command\n" );
+};
+
+	# Any number of commands. If there is an 
+	# error anywhere, garble the line.
+	main := command* $!{fhold;fnext garble_line;}; 
+}%%
+
+
+
+%% write data;
+
+void m( String s )
+{
+	byteptr data = s.buffer;
+	int p = 0;
+	int pe = s.size;
+	int cs;
+	String buffer;
+	int eof = pe;
+
+	%% write init;
+	%% write exec;
+
+	if ( cs >= gotocallret_first_final ) {
+		cout `ACCEPT\n`;
+	}
+	else {
+		cout `FAIL\n`;
+	}
+}
+
+void main()
+{
+	m( "lkajsdf\n" );
+	m( "2134\n" );
+	m( "(\n" );
+	m( "\n" );
+	m( "*234234()0909 092 -234aslkf09`1 11\n" );
+	m( "1\n" );
+	m( "909\n" );
+	m( "1 a\n" );
+	m( "11 1\n" );
+	m( "a 1\n" );
+	m( "aa a\n" );
+	m( "1 1\n" );
+	m( "1 123456\n" );
+	m( "a a\n" );
+	m( "a abcdef\n" );
+	m( "h" );
+	m( "a aa1" );
+}
+
+main();