chore: Restructured test Fortran code

Split Fortran source code into:
- syntax
- format
- lint

To keep the grammar tests more focused.

Author: gnikit

.vscode/launch.json

@@ -18,7 +18,7 @@
       "request": "launch",
       "runtimeExecutable": "${execPath}",
       "args": [
-        "${workspaceFolder}/test/resources",
+        "${workspaceFolder}/test/fortran",
         "--disable-extension=fortran-lang.linter-gfortran",
         "--extensionDevelopmentPath=${workspaceFolder}",
         "--extensionTestsPath=${workspaceFolder}/out/test"

package.json

@@ -515,8 +515,8 @@
     "webpack": "webpack --mode production",
     "pretest": "npm run compile-dev && tsc -p tsconfig.test.json",
     "test": "node ./out/test/runTest.js",
-    "test:grammar-free": "vscode-tmgrammar-snap -s source.fortran.free -g ./syntaxes/fortran_free-form.tmLanguage.json \"./test/**/*{.f90,F90}\"",
-    "test:grammar-fixed": "vscode-tmgrammar-snap -s source.fortran.fixed -g ./syntaxes/fortran_fixed-form.tmLanguage.json \"./test/**/*{.f,F}\"",
+    "test:grammar-free": "vscode-tmgrammar-snap -s source.fortran.free -g ./syntaxes/fortran_free-form.tmLanguage.json \"./test/fortran/syntax/**/*{.f90,F90}\"",
+    "test:grammar-fixed": "vscode-tmgrammar-snap -s source.fortran.fixed -g ./syntaxes/fortran_fixed-form.tmLanguage.json \"./test/fortran/syntax/**/*{.f,F}\"",
     "test:grammar": "npm run test:grammar-free && npm run test:grammar-fixed",
     "test:grammar-update": "npm run test:grammar-free -- -u && npm run test:grammar-fixed -- -u",
     "lint": "eslint . --ext .ts,.tsx",

test/extension.test.ts

@@ -15,7 +15,7 @@ import { FortranDocumentSymbolProvider } from '../src/features/document-symbol-p
 // Defines a Mocha test suite to group tests of similar kind together
 suite('Extension Tests', () => {
   test('symbol provider works as expected', async () => {
-    const filePath = path.resolve(__dirname, '../../test/resources/sample.f90');
+    const filePath = path.resolve(__dirname, '../../test/fortran/sample.f90');
     const openPath = vscode.Uri.file(filePath);
     const doc = await vscode.workspace.openTextDocument(openPath);
     vscode.window.showTextDocument(doc);

test/formatting-provider.test.ts

@@ -9,7 +9,7 @@ suite('Formatting tests', () => {
   let doc: vscode.TextDocument;
   const fmt = new FortranFormattingProvider(new LoggingService());
   const fileUri = vscode.Uri.file(
-    path.resolve(__dirname, '../../test/resources/formatting_test.f90')
+    path.resolve(__dirname, '../../test/fortran/format/formatting_test.f90')
   );
 
   suiteSetup(async function (): Promise<void> {
@@ -62,7 +62,10 @@ end program main
   test(`Using fprettify with stderr`, async () => {
     doc = await vscode.workspace.openTextDocument(
       vscode.Uri.file(
-        path.resolve(__dirname, '../../test/resources/formatting_test_fprettify_long_lines.f90')
+        path.resolve(
+          __dirname,
+          '../../test/fortran/format/formatting_test_fprettify_long_lines.f90'
+        )
       )
     );
     const edits = await fmt['doFormatFprettify'](doc);

test/resources/.vscode/launch.json test/fortran/.vscode/launch.json

@@ -0,0 +1,12 @@
+module err_mod
+    private
+    implicit none
+    contains
+        subroutine foo(arg1, arg2)
+            integer, intent(in) :: arg1, arg2
+            print*, 'arg1:', arg1, 'arg2:', arg2
+        end subroutine foo
+        subroutine proc_with_err()
+            call foo()
+        end subroutine proc_with_err
+end module err_mod

test/resources/.vscode/settings.json test/fortran/.vscode/settings.json

@@ -0,0 +1,8 @@
+program main
+  call say_hello(1,2)
+contains
+  subroutine say_hello(a,b)
+    integer :: a,b
+    print *, "Hello, World!"
+  end subroutine say_hello
+end program main

test/resources/.vscode/tasks.json test/fortran/.vscode/tasks.json

@@ -0,0 +1,27 @@
+module test
+    intrinsic :: size
+end module test
+
+program test_literals
+    use iso_c_binding
+    use test, only: fsize => size
+
+    implicit none
+    integer(c_int) :: ierr
+    integer :: i, j
+    integer, allocatable :: a(:,:)
+    a = reshape([1, 2, 3, 4, 5, 6], [2, 3])
+    print*, size(a), size(a, 1), size(a, 2)
+    print*, "loop over array ranks"
+    do i = 1, size(a, 2)
+        print*, a(:, i)
+    end do
+    print*, "end looping over array ranks"
+
+    call foo(a, )
+    contains
+    subroutine foo(pair)
+        integer, dimension(*), intent(in) :: pair
+        print*, pair(1:6)
+    end subroutine foo
+end program test_literals

test/resources/formatting_test.f90 test/fortran/format/formatting_test.f90

@@ -0,0 +1,4 @@
+
+
+clean:
+	rm -f *.o *.out *.mod *.smod

test/resources/formatting_test_fprettify_long_lines.f90 test/fortran/format/formatting_test_fprettify_long_lines.f90

@@ -161,8 +161,8 @@ suite('GNU (gfortran) lint preprocessor multiple', () => {
   const linter = new FortranLintingProvider();
   linter['compiler'] = 'gfortran';
   const msg = `
-f951: Warning: Nonexistent include directory '/Code/TypeScript/vscode-fortran-support/test/resources/include' [-Wmissing-include-dirs]
-/Code/TypeScript/vscode-fortran-support/test/resources/sample.f90:4:18:
+f951: Warning: Nonexistent include directory '/Code/TypeScript/vscode-fortran-support/test/fortran/include' [-Wmissing-include-dirs]
+/Code/TypeScript/vscode-fortran-support/test/fortran/sample.f90:4:18:
 
     4 |   call say_hello()
       |                  1
@@ -187,12 +187,12 @@ Error: Missing actual argument for argument 'a' at (1)
     test('REGEX: match 1 - message <msg2>', () => {
       strictEqual(
         g1['msg2'],
-        "Nonexistent include directory '/Code/TypeScript/vscode-fortran-support/test/resources/include' [-Wmissing-include-dirs]"
+        "Nonexistent include directory '/Code/TypeScript/vscode-fortran-support/test/fortran/include' [-Wmissing-include-dirs]"
       );
     });
     const g2 = matches[1].groups;
     test('REGEX: match 2 - filename', () => {
-      strictEqual(g2['fname'], '/Code/TypeScript/vscode-fortran-support/test/resources/sample.f90');
+      strictEqual(g2['fname'], '/Code/TypeScript/vscode-fortran-support/test/fortran/sample.f90');
     });
     test('REGEX: match 2 - line number', () => {
       strictEqual(g2['ln'], '4');
@@ -212,7 +212,7 @@ Error: Missing actual argument for argument 'a' at (1)
     const ref = [
       new Diagnostic(
         new Range(new Position(0, 1), new Position(0, 1)),
-        "Nonexistent include directory '/Code/TypeScript/vscode-fortran-support/test/resources/include' [-Wmissing-include-dirs]",
+        "Nonexistent include directory '/Code/TypeScript/vscode-fortran-support/test/fortran/include' [-Wmissing-include-dirs]",
         DiagnosticSeverity.Warning
       ),
       new Diagnostic(

test/resources/function_subroutine_definitions.f90 test/fortran/function_subroutine_definitions.f90

@@ -10,7 +10,7 @@ suite('Language Server integration tests', () => {
   let doc: vscode.TextDocument;
   const server = new FortlsClient(new LoggingService());
   const fileUri = vscode.Uri.file(
-    path.resolve(__dirname, '../../test/resources/function_subroutine_definitions.f90')
+    path.resolve(__dirname, '../../test/fortran/function_subroutine_definitions.f90')
   );
 
   suiteSetup(async function (): Promise<void> {