URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.pascal/] [hello.pas] - Rev 157
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.