diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-11-07 19:33:27 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-11-07 19:33:27 +0000 |
| commit | 78d8fe7dc4b2cbc75843bf0e456789a4abeb6ace (patch) | |
| tree | 0f41f6dc1da3c15e7735fc3fd4a56653bb15b923 /gcc/fortran/expr.c | |
| parent | 874ba5383873f1779d236a8885d6d4e1e782ce4a (diff) | |
2016-11-07 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/78226
* expr.c (gfc_generate_initializer): Add where to EXPR_NULL
statement.
* iresolve.c (gfc_resolve_extends_type_of): Add where to
both arguments of the function.
* resolve.c (resolve_select_type): Add where to the
second argument of the new statement.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@241927 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 0e94ae828331..ba79190daf1f 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -4367,6 +4367,7 @@ gfc_generate_initializer (gfc_typespec *ts, bool generate) { ctor->expr = gfc_get_expr (); ctor->expr->expr_type = EXPR_NULL; + ctor->expr->where = init->where; ctor->expr->ts = comp->ts; } |