* f-typeprint.c (f_print_type): Handle NULL pointer in VARSTRING

	properly.

1 files changed, 8 insertions, 5 deletions

diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
index 436a1ae742..d55c1657c9 100644
--- a/gdb/f-typeprint.c
+++ b/gdb/f-typeprint.c
@@ -72,13 +72,16 @@ f_print_type (struct type *type, char *varstring, struct ui_file *stream,
     fputs_filtered (" ", stream);
   f_type_print_varspec_prefix (type, stream, show, 0);
 
-  fputs_filtered (varstring, stream);
+  if (varstring != NULL)
+    {
+      fputs_filtered (varstring, stream);
 
-  /* For demangled function names, we have the arglist as part of the name,
-     so don't print an additional pair of ()'s */
+      /* For demangled function names, we have the arglist as part of the name,
+         so don't print an additional pair of ()'s */
 
-  demangled_args = varstring[strlen (varstring) - 1] == ')';
-  f_type_print_varspec_suffix (type, stream, show, 0, demangled_args);
+      demangled_args = varstring[strlen (varstring) - 1] == ')'; 
+      f_type_print_varspec_suffix (type, stream, show, 0, demangled_args);
+   }
 }
 
 /* Print any asterisks or open-parentheses needed before the