URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gdb-7.2/] [gdb-7.2-or32-1.0rc3/] [gdb/] [testsuite/] [gdb.pascal/] [hello.pas] - Diff between revs 330 and 513

Rev 330	Rev 513
`program hello;`	`program hello;`

`var`	`var`
`st : string;`	`st : string;`

`procedure print_hello;`	`procedure print_hello;`
`begin`	`begin`
`Writeln('Before assignment'); { set breakpoint 1 here }`	`Writeln('Before assignment'); { set breakpoint 1 here }`
`st:='Hello, world!';`	`st:='Hello, world!';`
`writeln(st); {set breakpoint 2 here }`	`writeln(st); {set breakpoint 2 here }`
`end;`	`end;`

`begin`	`begin`
`print_hello;`	`print_hello;`
`end.`	`end.`