diff options
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 9a19fa7..9a0ccf8 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -4793,6 +4793,9 @@ gfc_find_specific_dtio_proc (gfc_symbol *derived, bool write, bool formatted) gfc_typebound_proc *tb_io_proc, *specific_proc; bool t = false; + if (!derived || derived->attr.flavor != FL_DERIVED) + return NULL; + /* Try to find a typebound DTIO binding. */ if (formatted == true) { |