Commit 94f92a0a authored by Robert Schweppe's avatar Robert Schweppe
Browse files

- fixed failing tests (inserted blanks at end of where or else where statements)

parent 9c2e9c20
Pipeline #40586 canceled with stages
in 4 minutes and 33 seconds
......@@ -214,17 +214,17 @@ class TestTF:
func_result(:) = param(1) * exp ( ( param(2) + param(3) * x(1)%data_p(:) + param(4) * &
x(2)%data_p(:) ) * log ( param(5) ) )'''),
dedent('''\
where ( ( x(3)%data_p(:) + ( x(2)%data_p(:) - x(3)%data_p(:) ) / param(1) ) <= param(2) )
where ( ( x(3)%data_p(:) + ( x(2)%data_p(:) - x(3)%data_p(:) ) / param(1) ) <= param(2) )
func_result(:) = param(3)
else where
func_result(:) = param(4)
end where'''),
dedent('''\
where ( x(1)%data_p(:) > param(1) .and. x(1)%data_p(:) < param(2) )
where ( x(1)%data_p(:) > param(1) .and. x(1)%data_p(:) < param(2) )
func_result(:) = param(3)
else where ( x(1)%data_p(:) < param(4) )
else where ( x(1)%data_p(:) < param(4) )
func_result(:) = param(5)
else where ( x(1)%data_p(:) < param(6) )
else where ( x(1)%data_p(:) < param(6) )
func_result(:) = param(7)
else where
func_result(:) = nodata_dp
......@@ -247,15 +247,15 @@ class TestTF:
)
math_strings = (
dedent('''\
where ( x(1)%data_p(:) > param(1) )
where ( x(1)%data_p(:) > param(1) )
func_result(:) = x(1)%data_p(:)
else where
func_result(:) = x(2)%data_p(:)
end where'''),
dedent('''\
where ( x(1)%data_p(:) > param(1) )
where ( x(1)%data_p(:) > param(1) )
func_result(:) = x(1)%data_p(:)
else where ( x(1)%data_p(:) > param(2) )
else where ( x(1)%data_p(:) > param(2) )
func_result(:) = param(2)
else where
func_result(:) = x(2)%data_p(:)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment