updated tests for continued lines. test must not pass and is simply used for manual comparison.

Parser/test-data/continued_lines/code.f

-
-  do concurrent(k = 1:num_ele, i = 0:po)
-    T(i,k,1) = 4 * THIRD * T(i,k,0)  -       THIRD * T(i,k,-1)       &
-      +   THIRD * 2 * dt * global_mass_inv(i,k) * f(i,k)
-  end do
-
-end

Parser/test-data/continued_lines/comments.f

-! xxxxx
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxxx
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx
-
-! xxxxx &
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx &
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxxx &
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx &
-! bla
-
-! xxxxx&
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx&
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxxx&
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx&
-! bla
-
-! xxxxx &
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx &
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxxx &
-! xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx &
-x = 1
-
-!---------------------------------------------------------------------------------
-!> \brief Adds the left- and rightmost elements in an array to those on the &
-!>        nodes in the corresponding direction.
-!> \author Immo Huismann
-!>
-!> \details
-!> The spectral element method requires the assembly of the system, resulting in
-!> adding the values on the left and right side of an element boundary.
-!> As this program uses MPI for communication, the values at the ends of each
-!> nodes domain have to be communicated. This is done in this routine.
-
-end

Parser/test-data/continued_lines/pragma.f

+! simple pragma
+
+!$omp bla
+
+! simple continued pragma
+
+!$omp do &
+more
+
+! correct continued pragma
+
+!$omp do&
+!$omp more
+
+!$omp do&
+!$omp&more
+
+!$omp do&
+!$omp&really&
+!$omp an&
+!$omp awful&
+!$omp&lot
\ No newline at end of file

Parser/test-data/continued_lines/pragmas.f

-!$omp  parallel default(none)                                       &
-!$omp& shared(T,r,f,x,global_mass_inv)                              &
-!$omp& firstprivate(mass_mat_diag,stiffness_mat)                    &
-!$omp& firstprivate(alpha,beta,lambda)                              &
-!$omp& firstprivate(po,num_ele,he,nt,dt,dt_out)                     &
-!$omp& firstprivate(my_rank,num_procs,communicator,RNP_MPI)         &
-!$omp& firstprivate(num_ele_total,left_process,right_process)       &
-!$omp& private(k,i,j,sum)                                           &
-!$omp& shared(time,time_out)
-
-!$omp  parallel default(none) &
-!$omp& shared(T,r,f,x,global_mass_inv) &
-!$omp& firstprivate(mass_mat_diag,stiffness_mat) &
-!$omp& firstprivate(alpha,beta,lambda) &
-!$omp& firstprivate(po,num_ele,he,nt,dt,dt_out) &
-!$omp& firstprivate(my_rank,num_procs,communicator,RNP_MPI) &
-!$omp& firstprivate(num_ele_total,left_process,right_process) &
-!$omp& private(k,i,j,sum) &
-!$omp& shared(time,time_out)
-
-!$omp end parallel
-!$omp end parallel
-
-end

Parser/test-data/continued_lines/simple.f

+! normal continued line
+
+a = b &
++ c
+
+var&
+iable = "value"
+
+! continued line with comment
+
+a = b & ! some comment
++ c
+
+! continued line with blank line inbetween
+
+a = b &
+
++ c
+
+a = b &
+
+
++ c
+
+! continued line with comment line inbetween
+
+a = b &
+! some comment
++ c
+
+a = b &
+! some comment
+! more comment
++ c
+
+a = b &
+! comment, then space line
+
+! more comment
++ c
+
+end

Parser/test-data/continued_lines/strings.f

+a = "my&
+& string"
+
+a = 'my&
+& string'
+
+a = 'my&
+& string"
+
+! false positives
+a = 'my'&
+& string
+
+a = "my"&
+& string
+
+a = "my'&
+& string
+
+a = 'my"&
+& string
\ No newline at end of file

Parser/test/org/tud/forty/test/ContinuedLinesTest.java

 package org.tud.forty.test;
 
-import org.testng.annotations.DataProvider;
-import org.testng.annotations.Test;
-import org.tud.forty.ast.Root;
-
 import java.io.File;
 import java.util.Iterator;
+import org.testng.annotations.DataProvider;
+import org.testng.annotations.Test;
 
 public class ContinuedLinesTest extends TestBase {
 
@@ -15,7 +13,7 @@ public class ContinuedLinesTest extends TestBase {
   }
 
   @Test(dataProvider = "continued_lines", groups = {"parser"})
-    public void testContinuedLinesParser(File f) throws Exception {
-        testParse(f, false, false, false, false, Root.class);
+  public void testContinuedLinesSanitize(File f) throws Exception {
+    testSanitize(f);
   }
 }