We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 404b79c commit 1957cefCopy full SHA for 1957cef
1 file changed
test/mimetic_test_m.F90
@@ -59,7 +59,7 @@ function div_grad_matches_laplacian() result(test_diagnosis)
59
60
call phi%define(side=1., boundary_val=0., internal_val=0., n=21)
61
62
-#ifndef __GFORTRAN__
+#if (! defined(__GFORTRAN__)) || defined(GFORTRAN_ICE)
63
associate(div_grad_phi => .div. (.grad. phi) , laplacian_phi => .laplacian. phi)
64
test_diagnosis = .all.(div_grad_phi%values() .approximates. laplacian_phi%values() .within. tolerance)
65
end associate
0 commit comments