t_id
1446
t_adddate
2005/01/12
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022230797 | 1027299 | True | False | Successfully run |
Record count: 1
program tmacpas1; {Tests of mac pascal constructs, concerning two units} {$MODE MACPAS} uses umacpas1; {** Test exportable macros **} {$IFC UNDEFINED UMACPAS_COMP_VAR } {$NOTE In using unit: UMACPAS_COMP_VAR is undefined} {$ERRORC UMACPAS_COMP_VAR should be defined} {$ELSEC} {$IFC UMACPAS_COMP_VAR } {$NOTE In using unit: UMACPAS_COMP_VAR is true} {$ELSEC} {$NOTE In using unit: UMACPAS_COMP_VAR is false} {$ERRORC UMACPAS_COMP_VAR should be true} {$ENDC} {$ENDC} {$IFC UNDEFINED UMACPAS_PRE_IMPL_COMP_VAR } {$ERRORC UMACPAS_PRE_IMPL_COMP_VAR is not defined} {$ENDC} {$IFC UNDEFINED UMACPAS_PRE_IMPL_COMP_VAR } {$ERRORC UMACPAS_PRE_IMPL_COMP_VAR is defined, while it shoud not} {$ENDC} {** Test Push/Pop **} {$J-} {$PUSH} {$PUSH} {$J+} {$POP} {$POP} {$IFC OPTION(J)} {$ERRORC $PUSH/$POP doesnt work properly} {$ENDC} {** Test J directive for var and external for proc **} {$J+} var nisse: Integer; {Is available in Umacpas} {$J-} function Get84: Integer; external; begin Writeln(nisse); Writeln(Get84); if nisse <> 42 then halt(1); if Get84 <> 84 then halt(1); end.