diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4bfcec4..4f02462 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2011-10-30 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/50524 + * resolve.c (resolve_ref): Check return value of resolve_substring(). + +2011-10-30 Steven G. Kargl <kargl@gcc.gnu.org> + * io.c (match_dt_format): Match a user-defined operator or a kind type prefixed string. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 0d7e030..30f5f55 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4846,7 +4846,8 @@ resolve_ref (gfc_expr *expr) break; case REF_SUBSTRING: - resolve_substring (ref); + if (resolve_substring (ref) == FAILURE) + return FAILURE; break; } |