aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/test/escript_SUITE_data/factorial_warning
diff options
context:
space:
mode:
Diffstat (limited to 'lib/stdlib/test/escript_SUITE_data/factorial_warning')
-rwxr-xr-xlib/stdlib/test/escript_SUITE_data/factorial_warning13
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/stdlib/test/escript_SUITE_data/factorial_warning b/lib/stdlib/test/escript_SUITE_data/factorial_warning
new file mode 100755
index 0000000000..ef214e096a
--- /dev/null
+++ b/lib/stdlib/test/escript_SUITE_data/factorial_warning
@@ -0,0 +1,13 @@
+#!/usr/bin/env escript
+
+main([In]) ->
+ X = list_to_integer(In),
+ N = fac(X),
+ io:format("factorial ~w = ~w~n",[X, N]).
+
+fac(0) -> 1;
+fac(N) ->
+ N * fac(N-1).
+
+bar() ->
+ ok.