mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 01:09:35 +02:00
8d65471fe2
* don't allow a boolean or (wide)char to be used as the "error" parameter
for val()
git-svn-id: trunk@14006 -
11 lines
92 B
ObjectPascal
11 lines
92 B
ObjectPascal
{ %fail }
|
|
|
|
var
|
|
S: String;
|
|
B: Boolean;
|
|
E: Word;
|
|
begin
|
|
S := '0';
|
|
Val(S, E, B);
|
|
end.
|