168 		      struct language_arch_info *lai)  in f_language_arch_info()  argument
172   lai->string_char_type = builtin->builtin_character;  in f_language_arch_info()
173   lai->primitive_type_vector  in f_language_arch_info()
177   lai->primitive_type_vector [f_primitive_type_character]  in f_language_arch_info()
179   lai->primitive_type_vector [f_primitive_type_logical]  in f_language_arch_info()
181   lai->primitive_type_vector [f_primitive_type_logical_s1]  in f_language_arch_info()
183   lai->primitive_type_vector [f_primitive_type_logical_s2]  in f_language_arch_info()
185   lai->primitive_type_vector [f_primitive_type_logical_s8]  in f_language_arch_info()
187   lai->primitive_type_vector [f_primitive_type_real]  in f_language_arch_info()
189   lai->primitive_type_vector [f_primitive_type_real_s8]  in f_language_arch_info()
191   lai->primitive_type_vector [f_primitive_type_real_s16]  in f_language_arch_info()
193   lai->primitive_type_vector [f_primitive_type_complex_s8]  in f_language_arch_info()
195   lai->primitive_type_vector [f_primitive_type_complex_s16]  in f_language_arch_info()
197   lai->primitive_type_vector [f_primitive_type_void]  in f_language_arch_info()
200   lai->bool_type_symbol = "logical";  in f_language_arch_info()
201   lai->bool_type_default = builtin->builtin_logical_s2;  in f_language_arch_info()