From 8520567891b993cd85bf44b87c8c47b15f248248 Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Tue, 16 Mar 2021 20:13:07 +0100
Subject: [PATCH] fixed intellisense in short programs

---
 CodeCompletion/DomSyntaxTreeVisitor.cs      | 4 ++--
 TestSuite/intellisense_tests/shortprog1.pas | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)
 create mode 100644 TestSuite/intellisense_tests/shortprog1.pas

diff --git a/CodeCompletion/DomSyntaxTreeVisitor.cs b/CodeCompletion/DomSyntaxTreeVisitor.cs
index fca361f2e..a21b047f7 100644
--- a/CodeCompletion/DomSyntaxTreeVisitor.cs
+++ b/CodeCompletion/DomSyntaxTreeVisitor.cs
@@ -2725,8 +2725,8 @@ namespace CodeCompletion
                 }
             if (cur_scope != null && _program_module.program_block.program_code != null)
             {
-                var left_line_num = _program_module.program_block.program_code.left_logical_bracket.source_context.end_position.line_num;
-                var left_column_num = _program_module.program_block.program_code.left_logical_bracket.source_context.end_position.column_num;
+                var left_line_num = _program_module.program_block.program_code.left_logical_bracket.source_context != null ? _program_module.program_block.program_code.left_logical_bracket.source_context.end_position.line_num : 1;
+                var left_column_num = _program_module.program_block.program_code.left_logical_bracket.source_context != null ? _program_module.program_block.program_code.left_logical_bracket.source_context.end_position.column_num : 1;
                 var right_line_num = _program_module.program_block.program_code.source_context.end_position.line_num;
                 var right_column_num = _program_module.program_block.program_code.source_context.end_position.column_num;
                 if (_program_module.program_block.program_code.right_logical_bracket == null || _program_module.program_block.program_code.right_logical_bracket.source_context == null)
diff --git a/TestSuite/intellisense_tests/shortprog1.pas b/TestSuite/intellisense_tests/shortprog1.pas
new file mode 100644
index 000000000..2b69bb21d
--- /dev/null
+++ b/TestSuite/intellisense_tests/shortprog1.pas
@@ -0,0 +1,3 @@
+##
+var i: integer;
+writeln(i{@var i: integer;@});
\ No newline at end of file