blob: e9dce8e71cfb3e180b0ef8165c197bdebac9fc9f (
plain)
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
|
{ 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.
|
