Mercurial > octave

changeset 28915:c40a367a84c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use Octave convention of space after function name in libinterp/. * besselj.cc, cellfun.cc, chol.cc, conv2.cc, data.cc, eig.cc, ellipj.cc, graphics.cc, gsvd.cc, kron.cc, lu.cc, mappers.cc, matrix_type.cc, oct-map.cc, psi.cc, strfns.cc, audiodevinfo.cc, gzip.cc: Use Octave convention of space after function name in m-file code (BIST tests).
author Rik <rik@octave.org>
date Tue, 13 Oct 2020 19:49:11 -0700
parents 49d3a6322a9b
children ec591c500fa4
files libinterp/corefcn/besselj.cc libinterp/corefcn/cellfun.cc libinterp/corefcn/chol.cc libinterp/corefcn/conv2.cc libinterp/corefcn/data.cc libinterp/corefcn/eig.cc libinterp/corefcn/ellipj.cc libinterp/corefcn/graphics.cc libinterp/corefcn/gsvd.cc libinterp/corefcn/kron.cc libinterp/corefcn/lu.cc libinterp/corefcn/mappers.cc libinterp/corefcn/matrix_type.cc libinterp/corefcn/oct-map.cc libinterp/corefcn/psi.cc libinterp/corefcn/strfns.cc libinterp/dldfcn/audiodevinfo.cc libinterp/dldfcn/gzip.cc
diffstat 18 files changed, 168 insertions(+), 168 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/corefcn/besselj.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/besselj.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -737,12 +737,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %!assert (besselj (-alpha,x), jx, 100*eps)
 %!assert (bessely (-alpha,x), yx, 100*eps)
@@ -751,12 +751,12 @@
 %!assert (besselh (-alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (-alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (-alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (-alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (-alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (-alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (-alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (-alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (-alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (-alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (-alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (-alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (-alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (-alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! x *= -1;
 %! yx = -1.193199310178553861283790424 + 0.3421822624810469647226182835*I;
@@ -769,12 +769,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! ## Bessel functions, odd order, positive and negative x
 %! alpha = 3;  x = 2.5;
@@ -790,12 +790,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %!assert (besselj (-alpha,x), -jx, 100*eps)
 %!assert (bessely (-alpha,x), -yx, 100*eps)
@@ -804,12 +804,12 @@
 %!assert (besselh (-alpha,1,x), -(jx + I*yx), 100*eps)
 %!assert (besselh (-alpha,2,x), -(jx - I*yx), 100*eps)
 %!
-%!assert (besselj (-alpha,x,1), -jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (-alpha,x,1), -yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (-alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (-alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (-alpha,1,x,1), -(jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (-alpha,2,x,1), -(jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (-alpha,x,1), -jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (-alpha,x,1), -yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (-alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (-alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (-alpha,1,x,1), -(jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (-alpha,2,x,1), -(jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! x *= -1;
 %! jx = -jx;
@@ -824,12 +824,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! ## Bessel functions, fractional order, positive and negative x
 %!
@@ -846,12 +846,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! nix = 0.2119931212254662995364461998;
 %!
@@ -862,12 +862,12 @@
 %!assert (besselh (-alpha,1,x), -I*(jx + I*yx), 100*eps)
 %!assert (besselh (-alpha,2,x), I*(jx - I*yx), 100*eps)
 %!
-%!assert (besselj (-alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (-alpha,x,1), -jx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (-alpha,x,1), nix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (-alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (-alpha,1,x,1), -I*(jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (-alpha,2,x,1), I*(jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (-alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (-alpha,x,1), -jx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (-alpha,x,1), nix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (-alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (-alpha,1,x,1), -I*(jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (-alpha,2,x,1), I*(jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! x *= -1;
 %! jx *= -I;
@@ -882,12 +882,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! ## Bessel functions, even order, complex x
 %!
@@ -904,12 +904,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %!assert (besselj (-alpha,x), jx, 100*eps)
 %!assert (bessely (-alpha,x), yx, 100*eps)
@@ -918,12 +918,12 @@
 %!assert (besselh (-alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (-alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (-alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (-alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (-alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (-alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (-alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (-alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (-alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (-alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (-alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (-alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (-alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (-alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! ## Bessel functions, odd order, complex x
 %!
@@ -940,12 +940,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %!assert (besselj (-alpha,x), -jx, 100*eps)
 %!assert (bessely (-alpha,x), -yx, 100*eps)
@@ -954,12 +954,12 @@
 %!assert (besselh (-alpha,1,x), -(jx + I*yx), 100*eps)
 %!assert (besselh (-alpha,2,x), -(jx - I*yx), 100*eps)
 %!
-%!assert (besselj (-alpha,x,1), -jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (-alpha,x,1), -yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (-alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (-alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (-alpha,1,x,1), -(jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (-alpha,2,x,1), -(jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (-alpha,x,1), -jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (-alpha,x,1), -yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (-alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (-alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (-alpha,1,x,1), -(jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (-alpha,2,x,1), -(jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! ## Bessel functions, fractional order, complex x
 %!
@@ -976,12 +976,12 @@
 %!assert (besselh (alpha,1,x), jx + I*yx, 100*eps)
 %!assert (besselh (alpha,2,x), jx - I*yx, 100*eps)
 %!
-%!assert (besselj (alpha,x,1), jx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (alpha,x,1), ix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (alpha,x,1), jx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (alpha,x,1), ix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (alpha,1,x,1), (jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (alpha,2,x,1), (jx - I*yx)*exp (I*x), 100*eps)
 %!
 %! nix = 0.09822388691172060573913739253 - 0.7110230642207380127317227407*I;
 %!
@@ -992,12 +992,12 @@
 %!assert (besselh (-alpha,1,x), -I*(jx + I*yx), 100*eps)
 %!assert (besselh (-alpha,2,x), I*(jx - I*yx), 100*eps)
 %!
-%!assert (besselj (-alpha,x,1), yx*exp(-abs(imag(x))), 100*eps)
-%!assert (bessely (-alpha,x,1), -jx*exp(-abs(imag(x))), 100*eps)
-%!assert (besseli (-alpha,x,1), nix*exp(-abs(real(x))), 100*eps)
-%!assert (besselk (-alpha,x,1), kx*exp(x), 100*eps)
-%!assert (besselh (-alpha,1,x,1), -I*(jx + I*yx)*exp(-I*x), 100*eps)
-%!assert (besselh (-alpha,2,x,1), I*(jx - I*yx)*exp(I*x), 100*eps)
+%!assert (besselj (-alpha,x,1), yx*exp (-abs (imag (x))), 100*eps)
+%!assert (bessely (-alpha,x,1), -jx*exp (-abs (imag (x))), 100*eps)
+%!assert (besseli (-alpha,x,1), nix*exp (-abs (real (x))), 100*eps)
+%!assert (besselk (-alpha,x,1), kx*exp (x), 100*eps)
+%!assert (besselh (-alpha,1,x,1), -I*(jx + I*yx)*exp (-I*x), 100*eps)
+%!assert (besselh (-alpha,2,x,1), I*(jx - I*yx)*exp (I*x), 100*eps)
 
 Tests contributed by Robert T. Short.
 Tests are based on the properties and tables in A&S:
--- a/libinterp/corefcn/cellfun.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/cellfun.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -1551,14 +1551,14 @@
 %! A = arrayfun (@(x,y) x.a:y.a, a, b, "UniformOutput", false);
 %! assert (isequal (A, {[1.1, 2.1, 3.1]}));
 %!test
-%! A = arrayfun (@(x) mat2str(x), "a", "ErrorHandler", @__arrayfunerror);
+%! A = arrayfun (@(x) mat2str (x), "a", "ErrorHandler", @__arrayfunerror);
 %! assert (isfield (A, "identifier"), true);
 %! assert (isfield (A, "message"), true);
 %! assert (isfield (A, "index"), true);
 %! assert (isempty (A.message), false);
 %! assert (A.index, 1);
 %!test  # Overwriting setting of "UniformOutput" true
-%! A = arrayfun (@(x) mat2str(x), "a", "UniformOutput", true, ...
+%! A = arrayfun (@(x) mat2str (x), "a", "UniformOutput", true, ...
 %!               "ErrorHandler", @__arrayfunerror);
 %! assert (isfield (A, "identifier"), true);
 %! assert (isfield (A, "message"), true);
--- a/libinterp/corefcn/chol.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/chol.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -581,11 +581,11 @@
 %! sparse_chol2inv (B, eps*100);
 
 %!testif HAVE_CHOLMOD
-%! C = gallery("tridiag", 5);
+%! C = gallery ("tridiag", 5);
 %! sparse_chol2inv (C, eps*10);
 
 %!testif HAVE_CHOLMOD
-%! D = gallery("wathen", 1, 1);
+%! D = gallery ("wathen", 1, 1);
 %! sparse_chol2inv (D, eps*10^4);
 
 */
--- a/libinterp/corefcn/conv2.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/conv2.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -550,18 +550,18 @@
 %!    925  1976  2363  1971  1636  1600  1844  2239  1664   626
 %!    372  1133  1558  1687  1570  1401  1243  1122   883   264
 %!     60   270   556   857  1024   870   569   282    66     0];
-%!assert (convn(a, b, "full"), c)
-%!assert (convn(a, b, "same"), c(3:6,2:9,2:5,:))
-%!assert (convn(a, b, "valid"), c(4,3:8,3:4,:))
+%!assert (convn (a, b, "full"), c)
+%!assert (convn (a, b, "same"), c(3:6,2:9,2:5,:))
+%!assert (convn (a, b, "valid"), c(4,3:8,3:4,:))
 
 ## test correct class
-%!assert (class (convn (rand(5), rand(3))), "double")
-%!assert (class (convn (rand(5, "single"), rand(3))), "single")
-%!assert (class (convn (rand(5), rand(3, "single"))), "single")
-%!assert (class (convn (true (5), rand(3))), "double")
-%!assert (class (convn (true (5), rand(3, "single"))), "single")
-%!assert (class (convn (ones(5, "uint8"), rand(3))), "double")
-%!assert (class (convn (rand (3, "single"), ones(5, "uint8"))), "single")
+%!assert (class (convn (rand (5), rand (3))), "double")
+%!assert (class (convn (rand (5, "single"), rand (3))), "single")
+%!assert (class (convn (rand (5), rand (3, "single"))), "single")
+%!assert (class (convn (true (5), rand (3))), "double")
+%!assert (class (convn (true (5), rand (3, "single"))), "single")
+%!assert (class (convn (ones (5, "uint8"), rand (3))), "double")
+%!assert (class (convn (rand (3, "single"), ones (5, "uint8"))), "single")
 
 %!error convn ()
 %!error convn (1)
--- a/libinterp/corefcn/data.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/data.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -2213,8 +2213,8 @@
 
 %!error horzcat (struct ("foo", "bar"), cell (1))
 
-%!test <*39041> assert (class (horzcat (cell(0), struct())), "cell")
-%!test <51086> assert (class (horzcat (struct(), cell(0))), "struct")
+%!test <*39041> assert (class (horzcat (cell (0), struct ())), "cell")
+%!test <51086> assert (class (horzcat (struct (), cell (0))), "struct")
 */
 
 DEFUN (vertcat, args, ,
@@ -2796,10 +2796,10 @@
 %!assert (nnz (-5:0), 5)
 %!assert (nnz (-5:5), 10)
 %!assert (nnz (-2:1:2), 4)
-%!assert (nnz (-2+eps(2):1:2), 5)
-%!assert (nnz (-2-eps(2):1:2), 5)
-%!assert (nnz (-2:1+eps(1):2), 5)
-%!assert (nnz (-2:1-eps(1):2), 5)
+%!assert (nnz (-2+eps (2):1:2), 5)
+%!assert (nnz (-2-eps (2):1:2), 5)
+%!assert (nnz (-2:1+eps (1):2), 5)
+%!assert (nnz (-2:1-eps (1):2), 5)
 %!assert (nnz ([1:5] * 0), 0)
 %!assert (nnz ([-5:-1] * 0), 0)
 %!assert (nnz ([-1:1] * 0), 0)
@@ -3631,7 +3631,7 @@
 
 /*
 ## Debian bug #706376
-%!assert (isempty (speye(2^16)), false)
+%!assert (isempty (speye (2^16)), false)
 */
 
 DEFUN (isnumeric, args, ,
--- a/libinterp/corefcn/eig.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/eig.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -532,22 +532,22 @@
 ## column vector if 1 output is specified
 %!function test_shapes (args)
 %!  d = eig (args{:});
-%!  assert (isvector(d))
+%!  assert (isvector (d))
 %!  d2 = eig (args{:}, "vector");
-%!  assert (isvector(d2))
+%!  assert (isvector (d2))
 %!  [v, d3] = eig (args{:});
-%!  assert (isdiag(d3))
+%!  assert (isdiag (d3))
 %!  d4 = eig (args{:}, "matrix");
-%!  assert (isdiag(d4))
+%!  assert (isdiag (d4))
 %!  [v, d5, w] = eig (args{:});
-%!  assert (isdiag(d5))
+%!  assert (isdiag (d5))
 %!  d6 = eig (args{:}, "matrix");
-%!  assert (isdiag(d6))
+%!  assert (isdiag (d6))
 %!  assert (d, d2)
 %!  assert (d3, d4)
 %!  assert (d5, d6)
-%!  assert (d, diag(d3))
-%!  assert (d, diag(d5))
+%!  assert (d, diag (d3))
+%!  assert (d, diag (d5))
 %!endfunction
 
 %!function shapes_AEP (A)
--- a/libinterp/corefcn/ellipj.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/ellipj.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -338,7 +338,7 @@
 ## tests taken from inst/test_sncndn.m
 
 %!test
-%! k = (tan(pi/8.))^2;  m = k*k;
+%! k = (tan (pi/8))^2;  m = k*k;
 %! SN = [
 %! -1. + I * 0. ,  -0.8392965923 + 0. * I
 %! -1. + I * 0.2 ,  -0.8559363407 + 0.108250955 * I
@@ -729,13 +729,13 @@
 %! assert ([sn,cn,dn], res1, 10*eps);
 
 %!test
-%! u2 = log(2); m2 = 1;
+%! u2 = log (2); m2 = 1;
 %! res2 = [ 3/5, 4/5, 4/5 ];
 %! [sn,cn,dn] = ellipj (u2,m2);
 %! assert ([sn,cn,dn], res2, 10*eps);
 
 %!test
-%! u3 = log(2)*1i; m3 = 0;
+%! u3 = log (2)*1i; m3 = 0;
 %! res3 = [3i/4,5/4,1];
 %! [sn,cn,dn] = ellipj (u3,m3);
 %! assert ([sn,cn,dn], res3, 10*eps);
@@ -747,7 +747,7 @@
 %! assert ([sn,cn,dn], res4, 1e-10);
 
 %!test
-%! u5 = -0.2 + 0.4i; m5 = tan(pi/8)^4;
+%! u5 = -0.2 + 0.4i; m5 = tan (pi/8)^4;
 %! res5 = [ -0.2152524522 + 0.402598347i, ...
 %!           1.059453907  + 0.08179712295i, ...
 %!           1.001705496  + 0.00254669712i ];
@@ -755,7 +755,7 @@
 %! assert ([sn,cn,dn], res5, 1e-9);
 
 %!test
-%! u6 = 0.2 + 0.6i; m6 = tan(pi/8)^4;
+%! u6 = 0.2 + 0.6i; m6 = tan (pi/8)^4;
 %! res6 = [ 0.2369100139 + 0.624633635i, ...
 %!          1.16200643   - 0.1273503824i, ...
 %!          1.004913944  - 0.004334880912i ];
--- a/libinterp/corefcn/graphics.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/graphics.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -3300,7 +3300,7 @@
 /*
 ## test defaults are set in the order they were stored
 %!test
-%! set(0, "defaultfigureunits", "normalized");
+%! set (0, "defaultfigureunits", "normalized");
 %! set(0, "defaultfigureposition", [0.7 0 0.3 0.3]);
 %! hf = figure ("visible", "off");
 %! tol = 20 * eps;
@@ -3308,8 +3308,8 @@
 %!   assert (get (hf, "position"), [0.7 0 0.3 0.3], tol);
 %! unwind_protect_cleanup
 %!   close (hf);
-%!   set(0, "defaultfigureunits", "remove");
-%!   set(0, "defaultfigureposition", "remove");
+%!   set (0, "defaultfigureunits", "remove");
+%!   set (0, "defaultfigureposition", "remove");
 %! end_unwind_protect
 */
 
@@ -5299,13 +5299,13 @@
 %! hf = figure ("visible", "off");
 %! graphics_toolkit (hf, "qt");
 %! unwind_protect
-%!   subplot(2,1,1); plot(rand(10,1)); subplot(2,1,2); plot(rand(10,1));
+%!   subplot (2,1,1); plot (rand (10,1)); subplot (2,1,2); plot (rand (10,1));
 %!   hax = findall (gcf (), "type", "axes");
 %!   positions = cell2mat (get (hax, "position"));
 %!   outerpositions = cell2mat (get (hax, "outerposition"));
 %!   looseinsets = cell2mat (get (hax, "looseinset"));
 %!   tightinsets = cell2mat (get (hax, "tightinset"));
-%!   subplot(2,1,1); plot(rand(10,1)); subplot(2,1,2); plot(rand(10,1));
+%!   subplot (2,1,1); plot (rand (10,1)); subplot (2,1,2); plot (rand (10,1));
 %!   hax = findall (gcf (), "type", "axes");
 %!   assert (cell2mat (get (hax, "position")), positions, 1e-4);
 %!   assert (cell2mat (get (hax, "outerposition")), outerpositions, 1e-4);
--- a/libinterp/corefcn/gsvd.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/gsvd.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -319,7 +319,7 @@
 %! B = B0;
 %! A(:, 3) = 2*A(:, 1) - A(:, 2);
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(5, 3);  D1(1:3, 1:3) = C;
+%! D1 = zeros (5, 3);  D1(1:3, 1:3) = C;
 %! D2 = S;
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (3, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*R) <= 1e-6);
@@ -329,7 +329,7 @@
 %!test <48807>
 %! B(:, 3) = 2*B(:, 1) - B(:, 2);
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(5, 2);  D1(1:2, 1:2) = C;
+%! D1 = zeros (5, 2);  D1(1:2, 1:2) = C;
 %! D2 = [S; zeros(1, 2)];
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (2, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*[zeros(2, 1) R]) <= 1e-6);
@@ -351,8 +351,8 @@
 %!test <48807>
 %! B(2, 2) = 0;
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(3, 5); D1(1, 1) = 1; D1(2:3, 2:3) = C;
-%! D2 = zeros(5, 5); D2(1:2, 2:3) = S; D2(3:4, 4:5) = eye (2);
+%! D1 = zeros (3, 5); D1(1, 1) = 1; D1(2:3, 2:3) = C;
+%! D2 = zeros (5, 5); D2(1:2, 2:3) = S; D2(3:4, 4:5) = eye (2);
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (2, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*R) <= 1e-6);
 %! assert (norm ((V'*B*X) - D2*R) <= 1e-6);
@@ -374,7 +374,7 @@
 %! A(:, 3) = 2*A(:, 1) - A(:, 2);
 %! B(:, 3) = 2*B(:, 1) - B(:, 2);
 %! [U, V, X, C, S, R]=gsvd (A, B);
-%! D1 = zeros(3, 4); D1(1:3, 1:3) = C;
+%! D1 = zeros (3, 4); D1(1:3, 1:3) = C;
 %! D2 = eye (4); D2(1:3, 1:3) = S; D2(5,:) = 0;
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (3, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*[zeros(4, 1) R]) <= 1e-6);
@@ -387,7 +387,7 @@
 %! A = A0;
 %! B = B0;
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(5, 3);  D1(1:3, 1:3) = C;
+%! D1 = zeros (5, 3);  D1(1:3, 1:3) = C;
 %! D2 = S;
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (3, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*R) <= 1e-6);
@@ -397,7 +397,7 @@
 %!test <48807>
 %! B(2, 2) = 0;
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(5, 3);  D1(1, 1) = 1;  D1(2:3, 2:3) = C;
+%! D1 = zeros (5, 3);  D1(1, 1) = 1;  D1(2:3, 2:3) = C;
 %! D2 = [zeros(2, 1) S; zeros(1, 3)];
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (2, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*R) <= 1e-6);
@@ -408,7 +408,7 @@
 %! B = B0;
 %! A(:, 3) = 2*A(:, 1) - A(:, 2);
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(5, 3);  D1(1:3, 1:3) = C;
+%! D1 = zeros (5, 3);  D1(1:3, 1:3) = C;
 %! D2 = S;
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (3, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*R) <= 1e-6);
@@ -418,7 +418,7 @@
 %!test <48807>
 %! B(:, 3) = 2*B(:, 1) - B(:, 2);
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(5, 2);  D1(1:2, 1:2) = C;
+%! D1 = zeros (5, 2);  D1(1:2, 1:2) = C;
 %! D2 = [S; zeros(1, 2)];
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (2, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*[zeros(2, 1) R]) <= 1e-6);
@@ -441,8 +441,8 @@
 %!test <48807>
 %! B(2, 2) = 0;
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(3, 5);  D1(1, 1) = 1;  D1(2:3, 2:3) = C;
-%! D2 = zeros(5,5);  D2(1:2, 2:3) = S;  D2(3:4, 4:5) = eye (2);
+%! D1 = zeros (3, 5);  D1(1, 1) = 1;  D1(2:3, 2:3) = C;
+%! D2 = zeros (5,5);  D2(1:2, 2:3) = S;  D2(3:4, 4:5) = eye (2);
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (2, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*R) <= 1e-6);
 %! assert (norm ((V'*B*X) - D2*R) <= 1e-6);
@@ -452,8 +452,8 @@
 %! B = B0;
 %! A(3, :) = 2*A(1, :) - A(2, :);
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(3, 5);  D1(1:3, 1:3) = C;
-%! D2 = zeros(5,5);  D2(1:3, 1:3) = S;  D2(4:5, 4:5) = eye (2);
+%! D1 = zeros (3, 5);  D1(1:3, 1:3) = C;
+%! D2 = zeros (5,5);  D2(1:3, 1:3) = S;  D2(4:5, 4:5) = eye (2);
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (3, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*R) <= 1e-6);
 %! assert (norm ((V'*B*X) - D2*R) <= 1e-6);
@@ -465,7 +465,7 @@
 %! A(:, 3) = 2*A(:, 1) - A(:, 2);
 %! B(:, 3) = 2*B(:, 1) - B(:, 2);
 %! [U, V, X, C, S, R] = gsvd (A, B);
-%! D1 = zeros(3, 4);  D1(1:3, 1:3) = C;
+%! D1 = zeros (3, 4);  D1(1:3, 1:3) = C;
 %! D2 = eye (4);  D2(1:3, 1:3) = S;  D2(5,:) = 0;
 %! assert (norm (diag (C).^2 + diag (S).^2 - ones (3, 1)) <= 1e-6);
 %! assert (norm ((U'*A*X) - D1*[zeros(4, 1) R]) <= 1e-6);
--- a/libinterp/corefcn/kron.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/kron.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -310,7 +310,7 @@
 %!assert (kron (single (1:4), ones (3, 1)), single (z))
 %!assert (kron (sparse (1:4), ones (3, 1)), sparse (z))
 %!assert (kron (complex (1:4), ones (3, 1)), z)
-%!assert (kron (complex (single(1:4)), ones (3, 1)), single(z))
+%!assert (kron (complex (single (1:4)), ones (3, 1)), single (z))
 %!assert (kron (x, y, z), kron (kron (x, y), z))
 %!assert (kron (x, y, z), kron (x, kron (y, z)))
 %!assert (kron (p1, p1), kron (p2, p2))
--- a/libinterp/corefcn/lu.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/lu.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -801,15 +801,15 @@
 %! [L,U,P] = lu (A);
 %! [~,ordcols] = max (P,[],1);
 %! [~,ordrows] = max (P,[],2);
-%! P1 = eye (size(P))(:,ordcols);
-%! P2 = eye (size(P))(ordrows,:);
-%! assert(P1 == P);
-%! assert(P2 == P);
+%! P1 = eye (size (P))(:,ordcols);
+%! P2 = eye (size (P))(ordrows,:);
+%! assert (P1 == P);
+%! assert (P2 == P);
 %! [L,U,P] = luupdate (L,U,P,u,v);
 %! [L,U,P1] = luupdate (L,U,P1,u,v);
 %! [L,U,P2] = luupdate (L,U,P2,u,v);
-%! assert(P1 == P);
-%! assert(P2 == P);
+%! assert (P1 == P);
+%! assert (P2 == P);
 %!
 %!testif HAVE_QRUPDATE_LUU
 %! [L,U,P] = lu (Ac);
--- a/libinterp/corefcn/mappers.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/mappers.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -841,7 +841,7 @@
 
 %!test
 %! x = [1+2i,-1+2i,1e-6+2e-6i,0+2i];
-%! assert (erfcx (x), exp (x.^2) .* erfc(x), -1.e-10);
+%! assert (erfcx (x), exp (x.^2) .* erfc (x), -1.e-10);
 
 %!test
 %! x = [100, 100+20i];
@@ -883,7 +883,7 @@
 
 %!test
 %! x = [-0.1, 0.1, 1, 1+2i,-1+2i,1e-6+2e-6i,0+2i];
-%! assert (erfi (x), -i * erf(i*x), -1.e-10);
+%! assert (erfi (x), -i * erf (i*x), -1.e-10);
 
 %!error erfi ()
 %!error erfi (1, 2)
--- a/libinterp/corefcn/matrix_type.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/matrix_type.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -540,10 +540,10 @@
 %! a = matrix_type (spdiags (randn (10,3),[-1,0,1],10,10), "Singular");
 %! assert (matrix_type (a), "Singular");
 
-%!assert (matrix_type (triu (ones(10,10))), "Upper")
-%!assert (matrix_type (triu (ones(10,10),-1)), "Full")
-%!assert (matrix_type (tril (ones(10,10))), "Lower")
-%!assert (matrix_type (tril (ones(10,10),1)), "Full")
+%!assert (matrix_type (triu (ones (10,10))), "Upper")
+%!assert (matrix_type (triu (ones (10,10),-1)), "Full")
+%!assert (matrix_type (tril (ones (10,10))), "Lower")
+%!assert (matrix_type (tril (ones (10,10),1)), "Full")
 %!assert (matrix_type (10*eye (10,10) + ones (10,10)), "Positive Definite")
 %!assert (matrix_type (ones (11,10)), "Rectangular")
 %!test
--- a/libinterp/corefcn/oct-map.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/oct-map.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -564,8 +564,8 @@
 %! reshape (x, 3, 8, 1, 1);
 
 %!test <*46385>
-%! M = repmat (struct ('a', ones(100), 'b', true), 1, 2);
-%! M = repmat(M, 1, 2);
+%! M = repmat (struct ('a', ones (100), 'b', true), 1, 2);
+%! M = repmat (M, 1, 2);
 %! assert (size (M), [1, 4]);
 
 libinterp/corefcn/oct-map.cc
--- a/libinterp/corefcn/psi.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/psi.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -175,7 +175,7 @@
 ## "Introduction to the Gamma Function"
 
 ## Interesting identities of the digamma function, in section of 5.1.3
-%!assert (psi (1/3), - em - (3/2) * log(3) - ((sqrt (3) / 6) * pi), eps*10)
+%!assert (psi (1/3), - em - (3/2) * log (3) - ((sqrt (3) / 6) * pi), eps*10)
 %!assert (psi (1/4), - em -3 * log (2) - pi/2, eps*10)
 %!assert (psi (1/6), - em -2 * log (2) - (3/2) * log (3) - ((sqrt (3) / 2) * pi), eps*10)
 
--- a/libinterp/corefcn/strfns.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/corefcn/strfns.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -870,7 +870,7 @@
 %!assert (str2double (zeros (3,1,2)), NaN)
 %!assert (str2double (''), NaN)
 %!assert (str2double ([]), NaN)
-%!assert (str2double (char(zeros(3,0))), NaN)
+%!assert (str2double (char (zeros (3,0))), NaN)
 */
 
 DEFUN (__native2unicode__, args, ,
--- a/libinterp/dldfcn/audiodevinfo.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/dldfcn/audiodevinfo.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -489,7 +489,7 @@
 %!   assert (devinfo.output(i).Name, audiodevinfo (0, devinfo.output(i).ID));
 %! endfor
 %! for i=1:nin
-%!   assert (devinfo.input(i).Name, audiodevinfo (1, devinfo.input(i).ID));
+%!   assert (devinfo.input (i).Name, audiodevinfo (1, devinfo.input (i).ID));
 %! endfor
 
 %!testif HAVE_PORTAUDIO
@@ -500,7 +500,7 @@
 %!   assert (devinfo.output(i).ID, audiodevinfo (0, devinfo.output(i).Name));
 %! endfor
 %! for i = 1:nin
-%!   assert (devinfo.input(i).ID, audiodevinfo (1, devinfo.input(i).Name));
+%!   assert (devinfo.input (i).ID, audiodevinfo (1, devinfo.input (i).Name));
 %! endfor
 */
 
--- a/libinterp/dldfcn/gzip.cc	Tue Oct 13 19:02:32 2020 -0700
+++ b/libinterp/dldfcn/gzip.cc	Tue Oct 13 19:49:11 2020 -0700
@@ -783,7 +783,7 @@
 %!function test_xzip_dir (test_dir, z) # bug #43431
 %!  fpaths = fullfile (test_dir, {"test1", "test2", "test3"});
 %!  md5s = cell (1, 3);
-%!  for idx = 1:numel(fpaths)
+%!  for idx = 1:numel (fpaths)
 %!    create_file (fpaths{idx}, rand (100, 1));
 %!    md5s(idx) = hash ("md5", fileread (fpaths{idx}));
 %!  endfor
@@ -793,7 +793,7 @@
 %!  z_files = strcat (fpaths, z.ext);
 %!  z_filelist = z.zip (test_dir);
 %!  assert (sort (z_filelist), z_files(:))
-%!  for idx = 1:numel(fpaths)
+%!  for idx = 1:numel (fpaths)
 %!    assert (exist (z_files{idx}), 2)
 %!    unlink_or_error (fpaths{idx});
 %!  endfor
@@ -803,12 +803,12 @@
 %!    uz_filelist = z.unzip (test_dir);
 %!  else
 %!    uz_filelist = cell (1, numel (z_filelist));
-%!    for idx = 1:numel(z_filelist)
+%!    for idx = 1:numel (z_filelist)
 %!      uz_filelist(idx) = z.unzip (z_filelist{idx});
 %!    endfor
 %!  endif
 %!  assert (sort (uz_filelist), fpaths(:)) # bug #48598
-%!  for idx = 1:numel(fpaths)
+%!  for idx = 1:numel (fpaths)
 %!    assert (hash ("md5", fileread (fpaths{idx})), md5s{idx})
 %!  endfor
 %!endfunction
@@ -826,7 +826,7 @@
 %!    error ("unable to create directory for test");
 %!  endif
 %!  unwind_protect
-%!    for idx = 1:numel(out_dirs)
+%!    for idx = 1:numel (out_dirs)
 %!      out_dir = out_dirs{idx};
 %!      uz_file = fullfile (out_dir, filename);
 %!      z_file = [uz_file z.ext];
@@ -842,7 +842,7 @@
 %!    endfor
 %!  unwind_protect_cleanup
 %!    confirm_recursive_rmdir (false, "local");
-%!    for idx = 1:numel(out_dirs)
+%!    for idx = 1:numel (out_dirs)
 %!      sts = rmdir (out_dirs{idx}, "s");
 %!    endfor
 %!  end_unwind_protect