-/* This is declared in c-lang.h but it is silly to import that file for what
- is already just a hack. */
-extern int c_value_print (struct value *, struct ui_file *,
- const struct value_print_options *);
-
-const struct language_defn f_language_defn =
-{
- "fortran",
- language_fortran,
- range_check_on,
- type_check_on,
- case_sensitive_off,
- array_column_major,
- macro_expansion_no,
- &exp_descriptor_standard,
- f_parse, /* parser */
- f_error, /* parser error function */
- null_post_parser,
- f_printchar, /* Print character constant */
- f_printstr, /* function to print string constant */
- f_emit_char, /* Function to print a single character */
- f_print_type, /* Print a type using appropriate syntax */
- default_print_typedef, /* Print a typedef using appropriate syntax */
- f_val_print, /* Print a value using appropriate syntax */
- c_value_print, /* FIXME */
- NULL, /* Language specific skip_trampoline */
- NULL, /* name_of_this */
- cp_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */
- basic_lookup_transparent_type,/* lookup_transparent_type */
- NULL, /* Language specific symbol demangler */
- NULL, /* Language specific class_name_from_physname */
- f_op_print_tab, /* expression operators for printing */
- 0, /* arrays are first-class (not c-style) */
- 1, /* String lower bound */
- f_word_break_characters,
- f_make_symbol_completion_list,
- f_language_arch_info,
- default_print_array_index,
- default_pass_by_reference,
- default_get_string,
- LANG_MAGIC
-};