diff --git a/fem/tests/SD_H1BasisEvaluation/H1BasisEvaluation.F90 b/fem/tests/SD_H1BasisEvaluation/H1BasisEvaluation.F90 index 99abd11756..0ec2784d35 100644 --- a/fem/tests/SD_H1BasisEvaluation/H1BasisEvaluation.F90 +++ b/fem/tests/SD_H1BasisEvaluation/H1BasisEvaluation.F90 @@ -1295,7 +1295,7 @@ FUNCTION TestBrickElement(Solver, tol, P) RESULT(nerror) nbasis = nndof + 12*nedof*EdgePerm + 6*nfdof*FacePerm + nbdof ngp = GP % N - print*,ngb,nbasis; flush(6) + print*,ngp,nbasis; flush(6) ! Reserve workspace for finite element basis ALLOCATE(Basis(ngp,nbasis), dBasisdx(ngp,nbasis,3), &