← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/adacontrol/jaunty

« back to all changes in this revision

Viewing changes to test/t_pragmas.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2006-08-24 08:44:11 UTC
  • Revision ID: james.westby@ubuntu.com-20060824084411-1r15uio1h75lqgpx
Tags: upstream-1.4r20
Import upstream version 1.4r20

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_pragmas.adb
 
1
with Ada.Text_Io;
 
2
 
 
3
pragma Elaborate_All (Ada.Text_Io);--## rule line off pragmas
 
4
 
 
5
pragma Elaborate_All (Ada.Text_Io);
 
6
 
 
7
--## rule off pragmas
 
8
pragma Elaborate_All (Ada.Text_Io);
 
9
--## rule on pragmas
 
10
 
 
11
pragma Elaborate_All (Ada.Text_Io);
 
12
 
 
13
pragma Inconnu;
 
14
pragma TODO;
 
15
 
 
16
procedure T_pragmas is
 
17
   pragma Inline (T_pragmas);
 
18
   pragma Annotate (Test_Case_105); -- A GNAT pragma
 
19
begin
 
20
   null;
 
21
end T_pragmas;