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] - Blame information for rev 157

Details | Compare with Previous | 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.

Line No.	Rev	Author	Line
1	24	jeremybenn	`program hello;`
2
3			`var`
4			`st : string;`
5
6			`procedure print_hello;`
7			`begin`
8			`Writeln('Before assignment'); { set breakpoint 1 here }`
9			`st:='Hello, world!';`
10			`writeln(st); {set breakpoint 2 here }`
11			`end;`
12
13			`begin`
14			`print_hello;`
15			`end.`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.pascal/] [hello.pas] - Blame information for rev 157