-extern struct obstack dont_print_obstack;
-
-extern unsigned int print_max; /* No of array elements to print */
-
-extern int calc_f77_array_dims PARAMS ((struct type *));
-
-int f77_array_offset_tbl[MAX_FORTRAN_DIMS+1][2];
+#if 0
+static int there_is_a_visible_common_named PARAMS ((char *));
+#endif
+
+extern void _initialize_f_valprint PARAMS ((void));
+static void info_common_command PARAMS ((char *, int));
+static void list_all_visible_commons PARAMS ((char *));
+static void f77_print_array PARAMS ((struct type *, char *, CORE_ADDR,
+ GDB_FILE *, int, int, int,
+ enum val_prettyprint));
+static void f77_print_array_1 PARAMS ((int, int, struct type *, char *,
+ CORE_ADDR, GDB_FILE *, int, int, int,
+ enum val_prettyprint));
+static void f77_create_arrayprint_offset_tbl PARAMS ((struct type *,
+ GDB_FILE *));
+static void f77_get_dynamic_length_of_aggregate PARAMS ((struct type *));
+
+int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2];