File: trstr6.pp

package info (click to toggle)
fpc 2.6.4%2Bdfsg-4
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 178,760 kB
  • ctags: 83,946
  • sloc: pascal: 2,000,374; xml: 138,807; ansic: 9,617; asm: 7,843; yacc: 3,747; php: 3,271; sh: 2,626; makefile: 2,610; lex: 2,537; sql: 267; cpp: 145; sed: 132; perl: 126; csh: 34; tcl: 7
file content (29 lines) | stat: -rw-r--r-- 488 bytes parent folder | download | duplicates (13) 
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
 
{ from GPC test suite }

program rstr1(Output);
type ii = integer;
     tip = ^ii;
var ipv1, ipv2, ipv3 : tip;
    s : string[20];

function ip1: tip;
  var tmp : tip;
begin
  s := 'dead beef';
  tmp := ipv2;
  ipv2 := ipv3;
  ipv3 := tmp;
  ip1 := ipv1;
end;
begin
    s:='666 123';
    new(ipv1);
    new(ipv2);
    new(ipv3);
    ipv2^ := 155;
    readstr(s, ip1^, ipv2^);
    if (ipv1^ = 666) and (ipv2^ = 123) and (ipv3^ = 155) then
      writeln('OK')
    else
      halt(1);
end.