Add files via upload

test/test_languages/testFortran.py

@@ -46,19 +46,6 @@ def test_subroutine(self):
         self.assertEqual('test2', result[1].name)
         self.assertEqual('test2( )', result[1].long_name)
 
-    def test_new_ignore_next(self):                 #test if ignore_next and token_upper are working as intended
-        result = get_fortran_function_list('''
-        % FUNCTION test(a, b)
-        %    REAL :: a
-        %    REAL :: b
-        % END FUNCTION test
-        function test2
-        endfunction test2
-        ''')
-        self.assertEqual(1, len(result))
-        self.assertEqual('test2', result[0].name)
-        self.assertEqual('test2( )', result[0].long_name)
-
     def test_new_block(self):                       #test if BLOCK and its function 'ignore_if_paren" are working as intended
         result = get_fortran_function_list('''
         BLOCK (
@@ -79,6 +66,24 @@ def test_new_block(self):                       #test if BLOCK and its function
         self.assertEqual('test3( )', result[0].long_name)
 
 
+    def test_program(self):                     #test if program is being parsed correctly
+        result = get_fortran_function_list('''
+        program test
+            interface operator (+)
+                module procedure concat
+            end interface
+            
+            subroutine test2
+            endsubroutine test2
+        end  test
+        ''')
+        self.assertEqual(1, len(result))
+        self.assertEqual('test::test2', result[0].name)
+        self.assertEqual('test::test2( )', result[0].long_name)
+        self.assertEqual(1, result[0].top_nesting_level)
+
+
+
 
 
     def test_module(self):