1 files changed, 11 insertions, 0 deletions
diff --git a/Testing/Semantic/t6-1.p b/Testing/Semantic/t6-1.p
new file mode 100644
index 0000000..9669168
--- /dev/null
+++ b/Testing/Semantic/t6-1.p
@@ -0,0 +1,11 @@
+(* ERROR: procedures don't return values *)
+program main( input, output );
+  var a: integer;
+  procedure boo(b: integer);
+  begin
+    a := 1
+  end;
+begin
+  a := boo(a)
+end.
+