1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre .marechal@inria.fr>
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- JVM NOT MANDATORY -->
if ~isnum('%pi') then bugmes();quit;end
if ~isnum('1') then bugmes();quit;end
if ~isnum('1.2') then bugmes();quit;end
if ~isnum('+1.2') then bugmes();quit;end
if ~isnum('-1.2') then bugmes();quit;end
if ~isnum('1e2') then bugmes();quit;end
if ~isnum('1d2') then bugmes();quit;end
if ~isnum('1E2') then bugmes();quit;end
if ~isnum('1D2') then bugmes();quit;end
if ~isnum('1e+2') then bugmes();quit;end
if ~isnum('1e-2') then bugmes();quit;end
if ~isnum('+1e+2') then bugmes();quit;end
if ~isnum('-1e+2') then bugmes();quit;end
if ~isnum('-12e+3') then bugmes();quit;end
if ~isnum('-1.2e+3') then bugmes();quit;end
if ~isnum('-1.2e+345') then bugmes();quit;end
if isnum('a') then bugmes();quit;end
if isnum('e') then bugmes();quit;end
if isnum('d') then bugmes();quit;end
if isnum('E') then bugmes();quit;end
if isnum('e') then bugmes();quit;end
if isnum('-1.2a+345') then bugmes();quit;end
if ~isnum('-1.2e+3+45') then bugmes();quit;end
if ~isnum('-1.2e+3-45') then bugmes();quit;end
if execstr("isnum(1)","errcatch") == 0 then bugmes();quit;end
|
