← Back to branch summary

~ubuntu-branches/ubuntu/raring/adacontrol/raring

« back to all changes in this revision

Viewing changes to test/t_declarations-test_self_sp.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2010-03-13 14:01:37 UTC
  • mfrom: (1.1.5 upstream) (9.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20100313140137-50ia1bbb5qld97fd
Tags: 1.12~b1-1
http://bugs.debian.org/566061
New upstream beta version.  Really closes: #566061 even on i386.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_declarations-test_self_sp.adb
 
1
separate (T_Declarations)
 
2
procedure Test_Self_Sp is                       -- self_calling_procedure, nested procedure, local procedure
 
3
   function F (X : Integer) return Integer is   -- self_calling_function
 
4
   begin
 
5
      return F (X);
 
6
   end;
 
7
 
 
8
   function G (X : Integer) return Integer is
 
9
   begin
 
10
      return F (X);
 
11
   end;
 
12
 
 
13
   procedure P is                               -- nested procedure, local procedure
 
14
   begin
 
15
      Test_Self_Sp;
 
16
   end P;
 
17
begin
 
18
   Test_Self_Sp;
 
19
end Test_Self_Sp;