function l4_xor_test ( )

%*****************************************************************************80
%
%% L4_XOR_TEST tests L4_XOR. 
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    21 November 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'L4_XOR_TEST\n' );
  fprintf ( 1, '  L4_XOR computes the exclusive OR of two L4''s\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  L1  L2  L4_XOR(L1,L2)\n' );
  fprintf ( 1, '\n' );

  for l1 = 0 : 1
    for l2 = 0 : 1
      l4 = l4_xor ( l1, l2 );
      fprintf ( 1, '   %1d   %1d    %1d\n', l1, l2, l4 );
    end
  end

  return
end
