← Back to branch summary

~ubuntu-branches/ubuntu/maverick/adacontrol/maverick

« back to all changes in this revision

Viewing changes to test/t_style-multiple_elements.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2006-12-06 19:59:00 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 etch)
  • Revision ID: james.westby@ubuntu.com-20061206195900-xnfcv9mmhb22lq95
Tags: 1.6r8-1

* New upstream version.
* debian/rules: add a copyright statement.  Use all available CPUs to
  build.  Install predefined rules files in /usr/share/adacontrol.
* debian/adacontrol.gpr: work around a compiler (GCC 4.1) bug triggered
  by two of AdaControl's source files.
* debian/README.Debian: new; explain about the predefined rule files.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_style-multiple_elements.adb
 
1
with X_Style1, X_Style2;
 
2
separate (T_Style)
 
3
procedure Multiple_Elements is
 
4
   Decl1 : Integer := 0; Decl2 : Integer := 0;      -- Multiple_Elements
 
5
   Decl3        : Integer
 
6
     := 0; Decl4 : Integer := 0;                    -- Multiple_Elements
 
7
 
 
8
   use Ada.Text_IO; use Ada.Strings.Wide_Unbounded; -- Multiple_Elements
 
9
   type Enum is (Enum_1, Enum_2, Enum3);            -- OK
 
10
 
 
11
 
 
12
   E : Enum := Enum'First;
 
13
begin
 
14
   Decl1 := Decl2; Decl2 := Decl1;                  -- Multiple_Elements
 
15
   if Decl1 = Decl2 then No_Default_In; end if;     -- Multiple_Elements, Compound_Statement
 
16
   case E is
 
17
      when Enum_1 => null;                          -- Multiple_Elements
 
18
      when others => null;                          -- Multiple_Elements
 
19
   end case;
 
20
end Multiple_Elements;