Test suite results for test file tbs/tb0238.pp

Test run data :

Run ID:
Operating system: openbsd
Processor: x86_64
Version: 3.2.3
Fails/OK/Total: 36/8027/8063
Version: 3.2.3
Full version: 3.2.3-1366-ga8c6095677
Comment: -Xd -Fl/home/muller/sys-root/x86_64-openbsd/usr/lib -Fl/home/muller/sys-root/x86_64-openbsd/usr/local/lib -dFPC_USE_LIBC -gw -gwl -Fd
Machine: gcc220
Category: 1
SVN revisions: b5c4c6418c:d1adad3d1c:a8c6095677:d1c29e6cb9
Submitter: pierre
Date: 2024/04/29 01:09:00 <> 2024/03/22
Previous run: 940996
Next run: 942196

Hide skipped tests

Hide successful tests

Test file "tbs/tb0238.pp" information:

t_id 1043
t_adddate 2003/10/14
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
483821306941453FalseTrueSkipping test run because it is a unit

Record count: 1

No log of 941453.

Source: 

{ Old file: tbs0278.pp }
{ (* in conditional code is handled wrong for tp,delphi OK 0.99.13 (PFV) }

{$ifdef fpc}{$mode tp}{$endif}
unit tb0238;

interface

{
a string constant within $IFDEF that
contains "(*" causes an error;
compile it with "ppc386 test -So"  or  "-Sd"
}

var
  c : char;

{$IFDEF not_defined}
const
   c = 'b''(*

{ $else}

var
  c : char;

{$ENDIF}


implementation

end.

Link to SVN view of tbs/tb0238.pp source.