diff --git a/TestSuite/read1.pas b/TestSuite/read1.pas
index 9729b7bd5..8011e09d9 100644
--- a/TestSuite/read1.pas
+++ b/TestSuite/read1.pas
@@ -1,7 +1,12 @@
 var
   read: integer;
+
+procedure test;
 begin
   assign(input, 'read1.txt');
   readln(read);
   assert(read = 45);
+end;
+begin
+  //TODO
 end.
\ No newline at end of file