COMMENT_TEXT: -----------------------------------------------------------------------
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                   GVD - The GNU Visual Debugger                   --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                                                                   --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                      Copyright (C) 2000-2001                      --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                             ACT-Europe                            --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                                                                   --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- GVD is free  software;  you can redistribute it and/or modify  it --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- under the terms of the GNU General Public License as published by --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- the Free Software Foundation; either version 2 of the License, or --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- (at your option) any later version.                               --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                                                                   --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- This program is  distributed in the hope that it will be  useful, --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- but  WITHOUT ANY WARRANTY;  without even the  implied warranty of --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- General Public License for more details. You should have received --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- a copy of the GNU General Public License along with this library; --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- if not,  write to the  Free Software Foundation, Inc.,  59 Temple --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- Place - Suite 330, Boston, MA 02111-1307, USA.                    --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -----------------------------------------------------------------------
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: pragma
NORMAL_TEXT: <space>
NORMAL_TEXT: Warnings
NORMAL_TEXT: <space>(
NORMAL_TEXT: Off
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: System
NORMAL_TEXT: .
NORMAL_TEXT: Tasking
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: pragma
NORMAL_TEXT: <space>
NORMAL_TEXT: Warnings
NORMAL_TEXT: <space>(
NORMAL_TEXT: On
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Parse_Controlled
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Gen_Cplx
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Strings
NORMAL_TEXT: .
NORMAL_TEXT: Unbounded
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Parse
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Foo
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: begin
NORMAL_TEXT: <space>
KEYWORD_TEXT: null
NORMAL_TEXT: ;<space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Foo
NORMAL_TEXT: ;<cr>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: function
NORMAL_TEXT: <space>
NORMAL_TEXT: Foo
NORMAL_TEXT: 2<space>
KEYWORD_TEXT: return
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: begin
NORMAL_TEXT: <space>
KEYWORD_TEXT: return
NORMAL_TEXT: <space>1;<space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Foo
NORMAL_TEXT: 2;<cr>
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: A
NORMAL_TEXT: <space><space>:<space>
KEYWORD_TEXT: aliased
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: <space>:= 1;<space>
COMMENT_TEXT: -- End of line comment<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space><space>:<space>
NORMAL_TEXT: Float
NORMAL_TEXT: <space><space><space>:= 2.0;<space>
COMMENT_TEXT: --  End of line comment (should be highlighted)<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: C
NORMAL_TEXT: <space><space>:<space>
NORMAL_TEXT: Character
NORMAL_TEXT: <space>:=<space>
STRING_TEXT: 'A'
NORMAL_TEXT: ;<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Sh
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Short_Integer
NORMAL_TEXT: <space>:= 65;<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: SSh
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Short_Short_Integer
NORMAL_TEXT: <space>:= 65;<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: S
NORMAL_TEXT: <space><space>:<space>
NORMAL_TEXT: String
NORMAL_TEXT: <space><space>:=<space>
STRING_TEXT: "abcd"
NORMAL_TEXT: ;<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: S
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: String
NORMAL_TEXT: <space><space>:=<space>
STRING_TEXT: "ab"
NORMAL_TEXT: <space>&<space>
NORMAL_TEXT: ASCII
NORMAL_TEXT: .
NORMAL_TEXT: LF
NORMAL_TEXT: <space>&<space>
STRING_TEXT: "c"
NORMAL_TEXT: ;<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: S
NORMAL_TEXT: 3 :<space>
NORMAL_TEXT: String
NORMAL_TEXT: <space><space>:=<space>
STRING_TEXT: "ab["
STRING_TEXT: "c"
NORMAL_TEXT: ;<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: S
NORMAL_TEXT: 4 :<space>
NORMAL_TEXT: String
NORMAL_TEXT: <space><space>:=<space>
STRING_TEXT: "ab["
STRING_TEXT: "c"
STRING_TEXT: "]"
NORMAL_TEXT: ;<cr>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Dur
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Duration
NORMAL_TEXT: <space>:= 0.5;<cr>
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: C
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: Character
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Character
STRING_TEXT: '('
NORMAL_TEXT: A
NORMAL_TEXT: ');
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Range
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: range
NORMAL_TEXT: <space>3 .. 6;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: R
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: My_Range
NORMAL_TEXT: <space>:= 5;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Mod
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: mod
NORMAL_TEXT: <space>10;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: M
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: My_Mod
NORMAL_TEXT: <space>:= 8;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Access_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: access
NORMAL_TEXT: <space>
KEYWORD_TEXT: all
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Act
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Access_Type
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Enum
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>(
NORMAL_TEXT: Blue
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Red
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Green
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: My_Enum_Variable
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: My_Enum
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Blue
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 4)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space>:<space>
KEYWORD_TEXT: aliased
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: <space>:= (2, 3, 4, 5);
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Printed as (2, 3, 4, 5) in gdb
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Empty_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 0)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ea
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Empty_Array
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Array_Of_Access
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(4 .. 6)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Access_Type
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Aoa
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Array_Of_Access
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
KEYWORD_TEXT: null
NORMAL_TEXT: ,<space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: First_Index_Integer_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(24 .. 26)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Fiia
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: First_Index_Integer_Array
NORMAL_TEXT: <space>:= (24 => 3, 25 => 4, 26 => 5);
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Printed as (24 => 3, 4, 5) in gdb
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer_Array_Access
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: access
NORMAL_TEXT: <space>
KEYWORD_TEXT: all
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Iaa
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer_Array_Access
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: T
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: 2<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 2, 1 .. 3)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: U
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: 2 := ((2, 3, 4), (5, 6, 7));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Array_
NORMAL_TEXT: 3
NORMAL_TEXT: d
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(3 .. 4, 1 .. 2, 6 .. 7)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: A
NORMAL_TEXT: 3
NORMAL_TEXT: d
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Array_
NORMAL_TEXT: 3
NORMAL_TEXT: d
NORMAL_TEXT: <space>:= (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> (1, 2)));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Enum_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(
NORMAL_TEXT: My_Enum
NORMAL_TEXT: '
KEYWORD_TEXT: Range
NORMAL_TEXT: )<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Enum
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Enum_Array_Variable
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Enum_Array
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: Blue
NORMAL_TEXT: <space><space>=><space>
NORMAL_TEXT: Red
NORMAL_TEXT: ,
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Red
NORMAL_TEXT: <space><space><space>=><space>
NORMAL_TEXT: Green
NORMAL_TEXT: ,
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Green
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: Blue
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Negative_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(
NORMAL_TEXT: -50 ..<space>
NORMAL_TEXT: -46)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Character
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Negative_Array_Variable
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Negative_Array
NORMAL_TEXT: <space>:= (
STRING_TEXT: 'A'
NORMAL_TEXT: ,<space>
STRING_TEXT: 'B'
NORMAL_TEXT: ,<space>
STRING_TEXT: 'C'
NORMAL_TEXT: ,<space>
STRING_TEXT: 'D'
NORMAL_TEXT: ,<space>
STRING_TEXT: 'E'
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Array_Of_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 2)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: First_Index_Integer_Array
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Aa
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Array_Of_Array
NORMAL_TEXT: <space>:= (1 => (24 => 3, 25 => 4, 26 => 5),
NORMAL_TEXT: <lf>                           2 => (6, 7, 8));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: String_Access
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: access
NORMAL_TEXT: <space>
NORMAL_TEXT: String
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Array_Of_String
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 2)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: String_Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Aos
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Array_Of_String
NORMAL_TEXT: <space>:= (
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: String
NORMAL_TEXT: '(
STRING_TEXT: "ab"
NORMAL_TEXT: ),<space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: String
NORMAL_TEXT: '(
STRING_TEXT: "cd"
NORMAL_TEXT: ));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: S
NORMAL_TEXT: 5 :<space>
NORMAL_TEXT: String_Access
NORMAL_TEXT: <space>:=<space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: String
NORMAL_TEXT: '(
STRING_TEXT: "Hello"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: S
NORMAL_TEXT: 6 :<space>
NORMAL_TEXT: String_Access
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: S
NORMAL_TEXT: 5;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Null_Record
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: null
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Nr
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Null_Record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 1 :<space>
NORMAL_TEXT: Access_Type
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: String
NORMAL_TEXT: <space>(1 .. 2);
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: V
NORMAL_TEXT: <space>:<space>
KEYWORD_TEXT: aliased
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: Field
NORMAL_TEXT: 1 =><space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 =><space>
STRING_TEXT: "ab"
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Complex_Repeat_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 100)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Crt
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Complex_Repeat_Type
NORMAL_TEXT: <space>:= (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: V
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record_Access
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: access
NORMAL_TEXT: <space>
KEYWORD_TEXT: all
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Mra
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: My_Record_Access
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: V
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(
NORMAL_TEXT: Natural
NORMAL_TEXT: <space>
KEYWORD_TEXT: range
NORMAL_TEXT: <space><>)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: W
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: My_Record_Array
NORMAL_TEXT: <space>:= ((
NORMAL_TEXT: Field
NORMAL_TEXT: 1 =><space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 =><space>
STRING_TEXT: "ab"
NORMAL_TEXT: ),
NORMAL_TEXT: <lf>                           (
NORMAL_TEXT: Field
NORMAL_TEXT: 1 =><space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 =><space>
STRING_TEXT: "rt"
NORMAL_TEXT: ));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Record_Of_Record
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: caseField
NORMAL_TEXT: 1 :<space>
NORMAL_TEXT: Access_Type
NORMAL_TEXT: ;<space><space>
COMMENT_TEXT: --  Trap: start with keyword 'case'
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Rr
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Record_Of_Record
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: caseField
NORMAL_TEXT: 1 =><space>
NORMAL_TEXT: Act
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 =><space>
NORMAL_TEXT: V
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Record_Of_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 1 :<space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 3 :<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Roa
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Record_Of_Array
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: T
NORMAL_TEXT: ,<space>
NORMAL_TEXT: T
NORMAL_TEXT: , 1234);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: 3<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 10, 1 .. 20)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: X
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer_Array
NORMAL_TEXT: 3 := ((1, 2,<space>
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> 0),
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> 0));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Array_Of_Record
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 2)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ar
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Array_Of_Record
NORMAL_TEXT: <space>:= (1 => (
NORMAL_TEXT: Field
NORMAL_TEXT: 1 =><space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 =><space>
STRING_TEXT: "ab"
NORMAL_TEXT: ),
NORMAL_TEXT: <lf>                            2 => (
NORMAL_TEXT: Field
NORMAL_TEXT: 1 =><space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 =><space>
STRING_TEXT: "cd"
NORMAL_TEXT: ));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Discriminants_Record
NORMAL_TEXT: <space>(
NORMAL_TEXT: A
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Boolean
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: C
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Float
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Z
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Discriminants_Record
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: A
NORMAL_TEXT: <space>=> 1,<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: False
NORMAL_TEXT: ,<space>
NORMAL_TEXT: C
NORMAL_TEXT: <space>=> 2.0);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Access_Subprogram
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: access
NORMAL_TEXT: <space>
KEYWORD_TEXT: procedure
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: As
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Access_Subprogram
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Foo
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Variable_Record
NORMAL_TEXT: <space>(
NORMAL_TEXT: A
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Boolean
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: case
NORMAL_TEXT: <space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>
NORMAL_TEXT: True
NORMAL_TEXT: <space>=>
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>
NORMAL_TEXT: False
NORMAL_TEXT: <space>=>
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: C
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Float
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: D
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: case
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Y
NORMAL_TEXT: <space><space>:<space>
NORMAL_TEXT: Variable_Record
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: A
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: True
NORMAL_TEXT: ,<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>=> 1);
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Y
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: Variable_Record
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: A
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: False
NORMAL_TEXT: ,<space>
NORMAL_TEXT: C
NORMAL_TEXT: <space>=> 1.0,<space>
NORMAL_TEXT: D
NORMAL_TEXT: <space>=> 2);
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Nv
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Parse_Controlled
NORMAL_TEXT: .
NORMAL_TEXT: Null_Variant
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Union_Type
NORMAL_TEXT: <space>(
NORMAL_TEXT: A
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Boolean
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: False
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: case
NORMAL_TEXT: <space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>
NORMAL_TEXT: True
NORMAL_TEXT: <space><space>=><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>
NORMAL_TEXT: False
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: C
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Float
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: case
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: pragma
NORMAL_TEXT: <space>
NORMAL_TEXT: Unchecked_Union
NORMAL_TEXT: <space>(
NORMAL_TEXT: Union_Type
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ut
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Union_Type
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: A
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: True
NORMAL_TEXT: ,<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>=> 3);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  A big array of access types
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Big_Array
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 1000)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Access_Type
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ba
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Big_Array
NORMAL_TEXT: <space>:= (4 =><space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: , 900 =><space>
NORMAL_TEXT: A
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=><space>
KEYWORD_TEXT: null
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Big_Array
NORMAL_TEXT: 2<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 1000)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ba
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: Big_Array
NORMAL_TEXT: 2 := (4 => 1, 900 => 2,<space>
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> 0);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Tagged_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: tagged
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Character
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Tt
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Tagged_Type
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: A
NORMAL_TEXT: <space>=> 2,<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>=><space>
STRING_TEXT: 'C'
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: Tagged_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: C
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Float
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ctt
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: <space>:= (
NORMAL_TEXT: Tt
NORMAL_TEXT: <space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: C
NORMAL_TEXT: <space>=> 4.5);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 2<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: Tagged_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
KEYWORD_TEXT: null
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ctt
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 2 := (
NORMAL_TEXT: Tt
NORMAL_TEXT: <space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
KEYWORD_TEXT: null
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 3<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 2<space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: D
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 4<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 3<space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: E
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Character
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 5<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 4<space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: F
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Ctt
NORMAL_TEXT: 5 :<space>
NORMAL_TEXT: Child_Tagged_Type
NORMAL_TEXT: 5 := (
NORMAL_TEXT: Tt
NORMAL_TEXT: <space>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: D
NORMAL_TEXT: <space>=> 3,<space>
NORMAL_TEXT: E
NORMAL_TEXT: <space>=><space>
STRING_TEXT: 'A'
NORMAL_TEXT: ,<space>
NORMAL_TEXT: F
NORMAL_TEXT: <space>=> 2);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Arrays whose dimensions are not numbers
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Discriminant_Record
NORMAL_TEXT: <space>(
NORMAL_TEXT: Num
NORMAL_TEXT: 1,<space>
NORMAL_TEXT: Num
NORMAL_TEXT: 2,
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Num
NORMAL_TEXT: 3,<space>
NORMAL_TEXT: Num
NORMAL_TEXT: 4 :<space>
NORMAL_TEXT: Natural
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 1 :<space>
NORMAL_TEXT: My_Record_Array
NORMAL_TEXT: <space>(1 ..<space>
NORMAL_TEXT: Num
NORMAL_TEXT: 2);
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: My_Record_Array
NORMAL_TEXT: <space>(
NORMAL_TEXT: Num
NORMAL_TEXT: 1 .. 10);
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 3 :<space>
NORMAL_TEXT: My_Record_Array
NORMAL_TEXT: <space>(
NORMAL_TEXT: Num
NORMAL_TEXT: 1 ..<space>
NORMAL_TEXT: Num
NORMAL_TEXT: 2);
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 4 :<space>
NORMAL_TEXT: My_Record_Array
NORMAL_TEXT: <space>(
NORMAL_TEXT: Num
NORMAL_TEXT: 3 ..<space>
NORMAL_TEXT: Num
NORMAL_TEXT: 2);
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Field
NORMAL_TEXT: 5 :<space>
NORMAL_TEXT: My_Record_Array
NORMAL_TEXT: <space>(
NORMAL_TEXT: Num
NORMAL_TEXT: 4 ..<space>
NORMAL_TEXT: Num
NORMAL_TEXT: 2);
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Dire
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Discriminant_Record
NORMAL_TEXT: <space>(1, 7, 3, 0);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Parsing unconstrained arrays (implied bounds, gdb reports 0 as first
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  bound)
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: T_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(
NORMAL_TEXT: Positive
NORMAL_TEXT: <space>
KEYWORD_TEXT: range
NORMAL_TEXT: <space><>)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: T_Ptr_Type
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: access
NORMAL_TEXT: <space>
NORMAL_TEXT: T_Type
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: T_Ptr
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: T_Ptr_Type
NORMAL_TEXT: <space>:=<space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: T_Type
NORMAL_TEXT: ' (13, 17);
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: T_Ptr
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: T_Ptr_Type
NORMAL_TEXT: <space>:=<space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: T_Type
NORMAL_TEXT: ' (2 => 13, 3 => 17);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Complex type
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Tcb
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: System
NORMAL_TEXT: .
NORMAL_TEXT: Tasking
NORMAL_TEXT: .
NORMAL_TEXT: Ada_Task_Control_Block
NORMAL_TEXT: <space>(2);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Bar
NORMAL_TEXT: <space>(
NORMAL_TEXT: A
NORMAL_TEXT: <space>:<space>
KEYWORD_TEXT: in
NORMAL_TEXT: <space>
KEYWORD_TEXT: out
NORMAL_TEXT: <space>
NORMAL_TEXT: Integer
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space>:<space>
KEYWORD_TEXT: in
NORMAL_TEXT: <space>
KEYWORD_TEXT: out
NORMAL_TEXT: <space>
NORMAL_TEXT: Tagged_Type
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: R
NORMAL_TEXT: <space>:<space>
KEYWORD_TEXT: in
NORMAL_TEXT: <space>
KEYWORD_TEXT: out
NORMAL_TEXT: <space>
NORMAL_TEXT: My_Record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: S
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: String
NORMAL_TEXT: )
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space><space><space><space>
COMMENT_TEXT: --  Array of Controlled types
NORMAL_TEXT: <lf><space><space><space><space><space><space>
COMMENT_TEXT: --  For some reason, this must be in a separate context than Parse, or
NORMAL_TEXT: <lf><space><space><space><space><space><space>
COMMENT_TEXT: --  test_parse.adb can not execute.
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Matrix_Map
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: array
NORMAL_TEXT: <space>(1 .. 2, 1 .. 1)<space>
KEYWORD_TEXT: of
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Strings
NORMAL_TEXT: .
NORMAL_TEXT: Unbounded
NORMAL_TEXT: .
NORMAL_TEXT: Unbounded_String
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Ustring
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Strings
NORMAL_TEXT: .
NORMAL_TEXT: Unbounded
NORMAL_TEXT: .
NORMAL_TEXT: Unbounded_String
NORMAL_TEXT: <space>:=
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Strings
NORMAL_TEXT: .
NORMAL_TEXT: Unbounded
NORMAL_TEXT: .
NORMAL_TEXT: To_Unbounded_String
NORMAL_TEXT: <space>(
STRING_TEXT: "not_set"
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Asu_Test
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Matrix_Map
NORMAL_TEXT: <space>:= (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: Ustring
NORMAL_TEXT: ));
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Matrix_Map_Instance
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: tagged
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Map
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Matrix_Map
NORMAL_TEXT: <space>:= (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: Ustring
NORMAL_TEXT: ));
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Asu_Test
NORMAL_TEXT: 2 :<space>
NORMAL_TEXT: Matrix_Map_Instance
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: type
NORMAL_TEXT: <space>
NORMAL_TEXT: Matrix_Map_Instance
NORMAL_TEXT: 2<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Map
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Matrix_Map
NORMAL_TEXT: <space>:= (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=> (
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: Ustring
NORMAL_TEXT: ));
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: record
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Asu_Test
NORMAL_TEXT: 3 :<space>
NORMAL_TEXT: Matrix_Map_Instance
NORMAL_TEXT: 2;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>:= 4;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>+ 1;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: raise
NORMAL_TEXT: <space>
NORMAL_TEXT: Constraint_Error
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Bar
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: pragma
NORMAL_TEXT: <space>
NORMAL_TEXT: Assert
NORMAL_TEXT: <space>(
NORMAL_TEXT: A
NORMAL_TEXT: <space>= 1);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Bar
NORMAL_TEXT: <space>(
NORMAL_TEXT: A
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Tt
NORMAL_TEXT: ,<space>
NORMAL_TEXT: V
NORMAL_TEXT: ,<space>
STRING_TEXT: "Hello world"
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Parse
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
