File: trstr6.pp

package info (click to toggle)
fpc 3.2.2%2Bdfsg-49
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 341,452 kB
  • sloc: pascal: 3,820,194; xml: 194,356; ansic: 9,637; asm: 8,482; java: 5,346; sh: 4,813; yacc: 3,956; makefile: 2,705; lex: 2,661; javascript: 2,454; sql: 929; php: 474; cpp: 145; perl: 136; sed: 132; csh: 34; tcl: 7
file content (29 lines) | stat: -rw-r--r-- 488 bytes parent folder | download | duplicates (14) 
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.