summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbs/tb0039.pp
blob: 39ff1468e5c3873aa3b8e8f73335bc3db5ccf228 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{ Old file: tbs0044.pp }
{  shows $ifdef and comment nesting/directive problem  OK 0.99.1 (PFV) }

 { Problem with nested comments -- as you can probably see }
 { but it does give out kind of a funny error output :)    }


 {$UNDEF VP}
 {$UNDEF WINDOWS}

 {$IFDEF Windows} ssss {$ENDIF}      {No Syntax Error}

 {$IFDEF VP}
      {$D+}{$R+}
 {$ELSE}
   {$IFDEF Windows} ssss {$ENDIF}    {Syntax Error at: Col 25 }
 {$ENDIF}

 BEGIN
 END.