URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.pascal/] [hello.pas] - Rev 840
Compare with Previous | Blame | View Log
program hello; var st : string; procedure print_hello; begin Writeln('Before assignment'); { set breakpoint 1 here } st:='Hello, world!'; writeln(st); {set breakpoint 2 here } end; begin print_hello; end.