Warning, /frameworks/syntax-highlighting/autotests/reference/test.adb.ref is written in an unsupported language. File is not indexed.
0001 <Keyword>with</Keyword><Normal Text> Ada</Normal Text><Symbol>.</Symbol><Normal Text>Containers</Normal Text><Symbol>.</Symbol><Normal Text>Vectors;</Normal Text><br/> 0002 <Keyword>with</Keyword><Normal Text> Ada</Normal Text><Symbol>.</Symbol><Normal Text>Strings; </Normal Text><Keyword>use</Keyword><Normal Text> Ada</Normal Text><Symbol>.</Symbol><Normal Text>Strings;</Normal Text><br/> 0003 <Keyword>with</Keyword><Normal Text> Put_Title;</Normal Text><br/> 0004 <Normal Text></Normal Text><br/> 0005 <Keyword>procedure</Keyword><Normal Text> LAL_DDA </Normal Text><Keyword>is</Keyword><br/> 0006 <Normal Text> Collection </Normal Text><Symbol>:</Symbol><Normal Text> Repinfo_Collection;</Normal Text><br/> 0007 <Normal Text></Normal Text><br/> 0008 <Normal Text> A_Basic_Record </Normal Text><Symbol>:</Symbol><Normal Text> Basic_Record </Normal Text><Symbol>:=</Symbol><Normal Text> Basic_Record'</Normal Text><Symbol>(</Symbol><Normal Text>A </Normal Text><Symbol>=></Symbol><Normal Text> </Normal Text><Decimal>42</Decimal><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0009 <Normal Text> Another_Basic_Record </Normal Text><Symbol>:</Symbol><Normal Text> Basic_Record </Normal Text><Symbol>:=</Symbol><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>A </Normal Text><Symbol>=></Symbol><Normal Text> </Normal Text><Decimal>42</Decimal><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0010 <Normal Text> Nix </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Keyword>constant</Keyword><Normal Text> Null_Record </Normal Text><Symbol>:=</Symbol><Normal Text> </Normal Text><Symbol>(</Symbol><Keyword>null</Keyword><Normal Text> </Normal Text><Keyword>record</Keyword><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0011 <Normal Text></Normal Text><br/> 0012 <Normal Text> </Normal Text><Keyword>procedure</Keyword><Normal Text> Process_Type_Decl </Normal Text><Symbol>(</Symbol><Normal Text>Decl </Normal Text><Symbol>:</Symbol><Normal Text> Base_Type_Decl</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0013 <Normal Text> </Normal Text><Comment>-- Display all representation information that is available in</Comment><br/> 0014 <Normal Text> </Normal Text><Comment>-- ``Collection`` for this type declaration.</Comment><br/> 0015 <Normal Text></Normal Text><br/> 0016 <Normal Text> </Normal Text><Keyword>procedure</Keyword><Normal Text> Process_Variants</Normal Text><br/> 0017 <Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>Variants </Normal Text><Symbol>:</Symbol><Normal Text> Variant_Representation_Array; Prefix </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Data Type>String</Data Type><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0018 <Normal Text> </Normal Text><Comment>-- Display all representation information for the given record variants.</Comment><br/> 0019 <Normal Text> </Normal Text><Comment>-- ``Prefix`` is used as a prefix for all printed lines.</Comment><br/> 0020 <Normal Text></Normal Text><br/> 0021 <Normal Text> </Normal Text><Keyword>package</Keyword><Normal Text> Expr_Vectors </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>new</Keyword><Normal Text> Ada</Normal Text><Symbol>.</Symbol><Normal Text>Containers</Normal Text><Symbol>.</Symbol><Normal Text>Vectors </Normal Text><Symbol>(</Symbol><Normal Text>Positive</Normal Text><Symbol>,</Symbol><Normal Text> Expr</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0022 <Normal Text> </Normal Text><Keyword>use</Keyword><Normal Text> </Normal Text><Keyword>type</Keyword><Normal Text> Expr_Vectors</Normal Text><Symbol>.</Symbol><Normal Text>Vector;</Normal Text><br/> 0023 <Normal Text> </Normal Text><Keyword>package</Keyword><Normal Text> Expr_Vector_Vectors </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>new</Keyword><Normal Text> Ada</Normal Text><Symbol>.</Symbol><Normal Text>Containers</Normal Text><Symbol>.</Symbol><Normal Text>Vectors</Normal Text><br/> 0024 <Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>Positive</Normal Text><Symbol>,</Symbol><Normal Text> Expr_Vectors</Normal Text><Symbol>.</Symbol><Normal Text>Vector</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0025 <Normal Text></Normal Text><br/> 0026 <Normal Text> </Normal Text><Keyword>function</Keyword><Normal Text> Test_Discriminants</Normal Text><br/> 0027 <Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>Decl </Normal Text><Symbol>:</Symbol><Normal Text> Base_Type_Decl</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>return</Keyword><Normal Text> Expr_Vector_Vectors</Normal Text><Symbol>.</Symbol><Normal Text>Vector;</Normal Text><br/> 0028 <Normal Text> </Normal Text><Comment>-- Fetch the vector of discriminants to use for testing from nearby Test</Comment><br/> 0029 <Normal Text> </Normal Text><Comment>-- pragmas.</Comment><br/> 0030 <Normal Text></Normal Text><br/> 0031 <Normal Text> </Normal Text><Keyword>procedure</Keyword><Normal Text> Error </Normal Text><Symbol>(</Symbol><Normal Text>Node </Normal Text><Symbol>:</Symbol><Normal Text> Ada_Node'Class; Message </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Data Type>String</Data Type><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>with</Keyword><Normal Text> </Normal Text><Pragmas>No_Return</Pragmas><Normal Text>;</Normal Text><br/> 0032 <Normal Text> </Normal Text><Comment>-- Abort the App with the given error ``Message``, contextualized using</Comment><br/> 0033 <Normal Text> </Normal Text><Comment>-- ``Node`` 's source location.</Comment><br/> 0034 <Normal Text></Normal Text><br/> 0035 <Normal Text> </Normal Text><Keyword>package</Keyword><Normal Text> App </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>new</Keyword><Normal Text> Libadalang</Normal Text><Symbol>.</Symbol><Normal Text>Helpers</Normal Text><Symbol>.</Symbol><Normal Text>App</Normal Text><br/> 0036 <Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>Name </Normal Text><Symbol>=></Symbol><Normal Text> </Normal Text><String>"lal_dda"</String><Symbol>,</Symbol><br/> 0037 <Normal Text> Description </Normal Text><Symbol>=></Symbol><br/> 0038 <Normal Text> </Normal Text><String>"Exercize Libadalang's Data_Decomposition API on type declarations"</String><Symbol>,</Symbol><br/> 0039 <Normal Text> App_Setup </Normal Text><Symbol>=></Symbol><Normal Text> App_Setup</Normal Text><Symbol>,</Symbol><br/> 0040 <Normal Text> Process_Unit </Normal Text><Symbol>=></Symbol><Normal Text> Process_Unit</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0041 <Normal Text></Normal Text><br/> 0042 <Normal Text> </Normal Text><Keyword>package</Keyword><Normal Text> Args </Normal Text><Keyword>is</Keyword><br/> 0043 <Normal Text> </Normal Text><Keyword>use</Keyword><Normal Text> GNATCOLL</Normal Text><Symbol>.</Symbol><Normal Text>Opt_Parse;</Normal Text><br/> 0044 <Normal Text></Normal Text><br/> 0045 <Normal Text> </Normal Text><Keyword>package</Keyword><Normal Text> Rep_Info_Files </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>new</Keyword><Normal Text> Parse_Option_List</Normal Text><br/> 0046 <Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>App</Normal Text><Symbol>.</Symbol><Normal Text>Args</Normal Text><Symbol>.</Symbol><Normal Text>Parser</Normal Text><Symbol>,</Symbol><Normal Text> </Normal Text><String>"-i"</String><Symbol>,</Symbol><Normal Text> </Normal Text><String>"--rep-info-file"</String><Symbol>,</Symbol><br/> 0047 <Normal Text> Arg_Type </Normal Text><Symbol>=></Symbol><Normal Text> Unbounded_String</Normal Text><Symbol>,</Symbol><br/> 0048 <Normal Text> Accumulate </Normal Text><Symbol>=></Symbol><Normal Text> True</Normal Text><Symbol>,</Symbol><br/> 0049 <Normal Text> Help </Normal Text><Symbol>=></Symbol><Normal Text> </Normal Text><String>"Output for the compiler's -gnatR4j option"</String><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0050 <Normal Text></Normal Text><br/> 0051 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text> Args;</Normal Text><br/> 0052 <Normal Text></Normal Text><br/> 0053 <Normal Text> </Normal Text><Comment>---------------</Comment><br/> 0054 <Normal Text> </Normal Text><Comment>-- App_Setup --</Comment><br/> 0055 <Normal Text> </Normal Text><Comment>---------------</Comment><br/> 0056 <Normal Text></Normal Text><br/> 0057 <Normal Text> </Normal Text><Keyword>procedure</Keyword><Normal Text> App_Setup </Normal Text><Symbol>(</Symbol><Normal Text>Context </Normal Text><Symbol>:</Symbol><Normal Text> App_Context; Jobs </Normal Text><Symbol>:</Symbol><Normal Text> App_Job_Context_Array</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>is</Keyword><br/> 0058 <Normal Text> </Normal Text><Keyword>pragma</Keyword><Normal Text> Unreferenced </Normal Text><Symbol>(</Symbol><Normal Text>Context</Normal Text><Symbol>,</Symbol><Normal Text> Jobs</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0059 <Normal Text> </Normal Text><Keyword>begin</Keyword><br/> 0060 <Normal Text> Collection </Normal Text><Symbol>:=</Symbol><Normal Text> Load </Normal Text><Symbol>(</Symbol><Normal Text>Filename_Array </Normal Text><Symbol>(</Symbol><Normal Text>Args</Normal Text><Symbol>.</Symbol><Normal Text>Rep_Info_Files</Normal Text><Symbol>.</Symbol><Normal Text>Get</Normal Text><Symbol>))</Symbol><Normal Text>;</Normal Text><br/> 0061 <Normal Text> </Normal Text><Keyword>exception</Keyword><br/> 0062 <Normal Text> </Normal Text><Keyword>when</Keyword><Normal Text> Exc </Normal Text><Symbol>:</Symbol><Normal Text> Loading_Error </Normal Text><Symbol>=></Symbol><br/> 0063 <Normal Text> Put_Line</Normal Text><br/> 0064 <Normal Text> </Normal Text><Symbol>(</Symbol><String>"Loading_Error raised while loading representation information:"</String><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0065 <Normal Text> Put_Line </Normal Text><Symbol>(</Symbol><Normal Text>Exception_Message </Normal Text><Symbol>(</Symbol><Normal Text>Exc</Normal Text><Symbol>))</Symbol><Normal Text>;</Normal Text><br/> 0066 <Normal Text> New_Line;</Normal Text><br/> 0067 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text> App_Setup;</Normal Text><br/> 0068 <Normal Text></Normal Text><br/> 0069 <Normal Text> </Normal Text><Comment>------------------</Comment><br/> 0070 <Normal Text> </Normal Text><Comment>-- Process_Unit --</Comment><br/> 0071 <Normal Text> </Normal Text><Comment>------------------</Comment><br/> 0072 <Normal Text></Normal Text><br/> 0073 <Normal Text> </Normal Text><Keyword>procedure</Keyword><Normal Text> Process_Unit </Normal Text><Symbol>(</Symbol><Normal Text>Context </Normal Text><Symbol>:</Symbol><Normal Text> App_Job_Context; Unit </Normal Text><Symbol>:</Symbol><Normal Text> Analysis_Unit</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>is</Keyword><br/> 0074 <Normal Text> </Normal Text><Keyword>pragma</Keyword><Normal Text> Unreferenced </Normal Text><Symbol>(</Symbol><Normal Text>Context</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0075 <Normal Text></Normal Text><br/> 0076 <Normal Text> </Normal Text><Keyword>function</Keyword><Normal Text> Process </Normal Text><Symbol>(</Symbol><Normal Text>Node </Normal Text><Symbol>:</Symbol><Normal Text> Ada_Node'Class</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>return</Keyword><Normal Text> Visit_Status;</Normal Text><br/> 0077 <Normal Text></Normal Text><br/> 0078 <Normal Text> </Normal Text><Keyword>function</Keyword><Normal Text> Process </Normal Text><Symbol>(</Symbol><Normal Text>Node </Normal Text><Symbol>:</Symbol><Normal Text> Ada_Node'Class</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>return</Keyword><Normal Text> Visit_Status </Normal Text><Keyword>is</Keyword><br/> 0079 <Normal Text> </Normal Text><Keyword>begin</Keyword><br/> 0080 <Normal Text> </Normal Text><Keyword>case</Keyword><Normal Text> Node</Normal Text><Symbol>.</Symbol><Normal Text>Kind </Normal Text><Keyword>is</Keyword><br/> 0081 <Normal Text> </Normal Text><Keyword>when</Keyword><Normal Text> Ada_Base_Type_Decl </Normal Text><Symbol>=></Symbol><br/> 0082 <Normal Text> Process_Type_Decl </Normal Text><Symbol>(</Symbol><Normal Text>Node</Normal Text><Symbol>.</Symbol><Normal Text>As_Base_Type_Decl</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0083 <Normal Text></Normal Text><br/> 0084 <Normal Text> </Normal Text><Keyword>when</Keyword><Normal Text> Ada_Pragma_Node </Normal Text><Symbol>=></Symbol><br/> 0085 <Normal Text> </Normal Text><Keyword>declare</Keyword><br/> 0086 <Normal Text> PN </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Keyword>constant</Keyword><Normal Text> Pragma_Node </Normal Text><Symbol>:=</Symbol><Normal Text> Node</Normal Text><Symbol>.</Symbol><Normal Text>As_Pragma_Node;</Normal Text><br/> 0087 <Normal Text> Name </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Keyword>constant</Keyword><Normal Text> Text_Type </Normal Text><Symbol>:=</Symbol><Normal Text> To_Lower </Normal Text><Symbol>(</Symbol><Normal Text>PN</Normal Text><Symbol>.</Symbol><Normal Text>F_Id</Normal Text><Symbol>.</Symbol><Normal Text>Text</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0088 <Normal Text> Decl </Normal Text><Symbol>:</Symbol><Normal Text> Ada_Node;</Normal Text><br/> 0089 <Normal Text> </Normal Text><Keyword>begin</Keyword><br/> 0090 <Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> Name </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>"test_object_type"</String><Normal Text> </Normal Text><Keyword>then</Keyword><br/> 0091 <Normal Text> Decl </Normal Text><Symbol>:=</Symbol><Normal Text> PN</Normal Text><Symbol>.</Symbol><Normal Text>Previous_Sibling;</Normal Text><br/> 0092 <Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> Decl</Normal Text><Symbol>.</Symbol><Normal Text>Kind </Normal Text><Symbol>/=</Symbol><Normal Text> Ada_Object_Decl </Normal Text><Keyword>then</Keyword><br/> 0093 <Normal Text> Error</Normal Text><br/> 0094 <Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>Node</Normal Text><Symbol>,</Symbol><br/> 0095 <Normal Text> </Normal Text><String>"previous declaration must be an object"</String><br/> 0096 <Normal Text> </Normal Text><Symbol>&</Symbol><Normal Text> </Normal Text><String>" declaration"</String><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0097 <Normal Text> </Normal Text><Keyword>end if</Keyword><Normal Text>;</Normal Text><br/> 0098 <Normal Text> Process_Type_Decl</Normal Text><br/> 0099 <Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>Decl</Normal Text><Symbol>.</Symbol><Normal Text>As_Object_Decl</Normal Text><br/> 0100 <Normal Text> </Normal Text><Symbol>.</Symbol><Normal Text>F_Type_Expr</Normal Text><br/> 0101 <Normal Text> </Normal Text><Symbol>.</Symbol><Normal Text>P_Designated_Type_Decl</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0102 <Normal Text> </Normal Text><Keyword>end if</Keyword><Normal Text>;</Normal Text><br/> 0103 <Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> I </Normal Text><Symbol>></Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Keyword>then</Keyword><br/> 0104 <Normal Text> Put </Normal Text><Symbol>(</Symbol><String>", "</String><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0105 <Normal Text> </Normal Text><Keyword>end if</Keyword><Normal Text>;</Normal Text><br/> 0106 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0107 <Normal Text></Normal Text><br/> 0108 <Normal Text> </Normal Text><Keyword>when</Keyword><Normal Text> </Normal Text><Keyword>others</Keyword><Normal Text> </Normal Text><Symbol>=></Symbol><br/> 0109 <Normal Text> </Normal Text><Keyword>null</Keyword><Normal Text>;</Normal Text><br/> 0110 <Normal Text> </Normal Text><Keyword>end case</Keyword><Normal Text>;</Normal Text><br/> 0111 <Normal Text> </Normal Text><Keyword>return</Keyword><Normal Text> Into;</Normal Text><br/> 0112 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text> Process;</Normal Text><br/> 0113 <Normal Text></Normal Text><br/> 0114 <Normal Text> </Normal Text><Keyword>begin</Keyword><br/> 0115 <Normal Text> Put_Title</Normal Text><br/> 0116 <Normal Text> </Normal Text><Symbol>(</Symbol><Char>'#'</Char><Symbol>,</Symbol><Normal Text> </Normal Text><String>"Analyzing "</String><Normal Text> </Normal Text><Symbol>&</Symbol><Normal Text> Ada</Normal Text><Symbol>.</Symbol><Normal Text>Directories</Normal Text><Symbol>.</Symbol><Normal Text>Simple_Name </Normal Text><Symbol>(</Symbol><Normal Text>Unit</Normal Text><Symbol>.</Symbol><Normal Text>Get_Filename</Normal Text><Symbol>))</Symbol><Normal Text>;</Normal Text><br/> 0117 <Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> Unit</Normal Text><Symbol>.</Symbol><Normal Text>Has_Diagnostics </Normal Text><Keyword>then</Keyword><br/> 0118 <Normal Text> </Normal Text><Keyword>for</Keyword><Normal Text> D </Normal Text><Keyword>of</Keyword><Normal Text> Unit</Normal Text><Symbol>.</Symbol><Normal Text>Diagnostics </Normal Text><Keyword>loop</Keyword><br/> 0119 <Normal Text> Put_Line </Normal Text><Symbol>(</Symbol><Normal Text>Unit</Normal Text><Symbol>.</Symbol><Normal Text>Format_GNU_Diagnostic </Normal Text><Symbol>(</Symbol><Normal Text>D</Normal Text><Symbol>))</Symbol><Normal Text>;</Normal Text><br/> 0120 <Normal Text> </Normal Text><Keyword>end loop</Keyword><Normal Text>;</Normal Text><br/> 0121 <Normal Text> New_Line;</Normal Text><br/> 0122 <Normal Text> </Normal Text><Keyword>return</Keyword><Normal Text>;</Normal Text><br/> 0123 <Normal Text></Normal Text><br/> 0124 <Normal Text> </Normal Text><Keyword>elsif</Keyword><Normal Text> </Normal Text><Keyword>not</Keyword><Normal Text> Unit</Normal Text><Symbol>.</Symbol><Normal Text>Root</Normal Text><Symbol>.</Symbol><Normal Text>Is_Null </Normal Text><Keyword>then</Keyword><br/> 0125 <Normal Text> Unit</Normal Text><Symbol>.</Symbol><Normal Text>Root</Normal Text><Symbol>.</Symbol><Normal Text>Traverse </Normal Text><Symbol>(</Symbol><Normal Text>Process'Access</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0126 <Normal Text> </Normal Text><Keyword>end if</Keyword><Normal Text>;</Normal Text><br/> 0127 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text> Process_Unit;</Normal Text><br/> 0128 <Keyword>end</Keyword><Normal Text> LAL_DDA;</Normal Text><br/> 0129 <Normal Text></Normal Text><br/> 0130 <Keyword>type</Keyword><Normal Text> Car </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>record</Keyword><br/> 0131 <Normal Text> Identity </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Data Type>Long_Long_Integer</Data Type><Normal Text>;</Normal Text><br/> 0132 <Normal Text> Number_Wheels </Normal Text><Symbol>:</Symbol><Normal Text> Positive </Normal Text><Keyword>range</Keyword><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Symbol>..</Symbol><Normal Text> </Normal Text><Base>16#</Base><Decimal>FF</Decimal><Base>#</Base><Exponent>E1</Exponent><Normal Text>;</Normal Text><br/> 0133 <Normal Text> Number_Wheels </Normal Text><Symbol>:</Symbol><Normal Text> Positive </Normal Text><Keyword>range</Keyword><Normal Text> </Normal Text><Base>16#</Base><Float>F.FF</Float><Base>#</Base><Exponent>E+2</Exponent><Normal Text> </Normal Text><Symbol>..</Symbol><Normal Text> </Normal Text><Base>2#</Base><Decimal>1111_1111</Decimal><Base>#</Base><Normal Text>;</Normal Text><br/> 0134 <Normal Text> Paint </Normal Text><Symbol>:</Symbol><Normal Text> Color;</Normal Text><br/> 0135 <Normal Text> Horse_Power_kW </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Data Type>Float</Data Type><Normal Text> </Normal Text><Keyword>range</Keyword><Normal Text> </Normal Text><Float>0.0</Float><Normal Text> </Normal Text><Symbol>..</Symbol><Normal Text> </Normal Text><Float>2_000.0</Float><Normal Text>;</Normal Text><br/> 0136 <Normal Text> Consumption </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Data Type>Float</Data Type><Normal Text> </Normal Text><Keyword>range</Keyword><Normal Text> </Normal Text><Float>0.0</Float><Normal Text> </Normal Text><Symbol>..</Symbol><Normal Text> </Normal Text><Float>100.0</Float><Normal Text>;</Normal Text><br/> 0137 <Keyword>end record</Keyword><Normal Text>;</Normal Text><br/> 0138 <Normal Text></Normal Text><br/> 0139 <Keyword>type</Keyword><Normal Text> Null_Record </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>null</Keyword><Normal Text> </Normal Text><Keyword>record</Keyword><Normal Text>;</Normal Text><br/> 0140 <Normal Text></Normal Text><br/> 0141 <Keyword>type</Keyword><Normal Text> Traffic_Light_Access </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>access</Keyword><Normal Text> Mutable_Variant_Record;</Normal Text><br/> 0142 <Normal Text>Any_Traffic_Light </Normal Text><Symbol>:</Symbol><Normal Text> Traffic_Light_Access </Normal Text><Symbol>:=</Symbol><br/> 0143 <Normal Text> </Normal Text><Keyword>new</Keyword><Normal Text> Mutable_Variant_Record;</Normal Text><br/> 0144 <Normal Text>Aliased_Traffic_Light </Normal Text><Symbol>:</Symbol><Normal Text> </Normal Text><Keyword>aliased</Keyword><Normal Text> Mutable_Variant_Record;</Normal Text><br/> 0145 <Normal Text></Normal Text><br/> 0146 <Keyword>pragma</Keyword><Normal Text> </Normal Text><Pragmas>Unchecked_Union</Pragmas><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>Union</Normal Text><Symbol>)</Symbol><Normal Text>;</Normal Text><br/> 0147 <Keyword>pragma</Keyword><Normal Text> </Normal Text><Pragmas>Convention</Pragmas><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>C</Normal Text><Symbol>,</Symbol><Normal Text> Union</Normal Text><Symbol>)</Symbol><Normal Text>; </Normal Text><Comment>-- optional</Comment><br/> 0148 <Normal Text></Normal Text><br/> 0149 <Keyword>type</Keyword><Normal Text> Programmer </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Keyword>new</Keyword><Normal Text> Person</Normal Text><br/> 0150 <Normal Text> </Normal Text><Keyword>and</Keyword><Normal Text> Printable</Normal Text><br/> 0151 <Keyword>with</Keyword><br/> 0152 <Normal Text> </Normal Text><Keyword>record</Keyword><br/> 0153 <Normal Text> Skilled_In </Normal Text><Symbol>:</Symbol><Normal Text> Language_List;</Normal Text><br/> 0154 <Normal Text> </Normal Text><Keyword>end record</Keyword><Normal Text>;</Normal Text><br/> 0155 <Normal Text></Normal Text><br/> 0156 <Base>3#</Base><Float>12.112</Float><Base>#</Base><Exponent>e3</Exponent><br/> 0157 <Base>3#</Base><Float>12.11</Float><Normal Text> </Normal Text><Keyword>use</Keyword><br/> 0158 <Comment>-- ^ invalid</Comment><br/> 0159 <Base>3#</Base><Float>12.2</Float><Normal Text>3#e3</Normal Text><br/> 0160 <Comment>-- ^ invalid</Comment><br/> 0161 <Base>3#</Base><Float>12.11</Float><Normal Text>ds#</Normal Text><br/> 0162 <Comment>-- ^ invalid</Comment><br/> 0163 <Decimal>1211</Decimal><Normal Text>ds</Normal Text><br/> 0164 <Comment>-- ^ invalid</Comment><br/>