diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2019-03-09 19:25:39 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2019-03-09 19:25:39 +0100 |
| commit | b5c26787c4e5d7b13df865edb7439a875c844cfe (patch) | |
| tree | bb7b738abf18de19e93ab1391d37290da0a09f1e /gcc/fortran/expr.c | |
| parent | 660de2bae3b7a301fc19ef877d94ce0a86eaf72b (diff) | |
| download | gcc-b5c26787c4e5d7b13df865edb7439a875c844cfe.zip gcc-b5c26787c4e5d7b13df865edb7439a875c844cfe.tar.gz gcc-b5c26787c4e5d7b13df865edb7439a875c844cfe.tar.bz2 | |
re PR fortran/84504 ([F08] procedure pointer variables cannot be initialized with functions returning pointers)
fix PR 84504
2019-03-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/84504
* expr.c (gfc_check_assign_symbol): Deal with procedure pointers to
pointer-valued functions.
2019-03-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/84504
* gfortran.dg/pointer_init_10.f90: New test case.
From-SVN: r269529
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 51552a7..4e95f24 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -4321,7 +4321,7 @@ gfc_check_assign_symbol (gfc_symbol *sym, gfc_component *comp, gfc_expr *rvalue) if (!r) return r; - if (pointer && rvalue->expr_type != EXPR_NULL) + if (pointer && rvalue->expr_type != EXPR_NULL && !proc_pointer) { /* F08:C461. Additional checks for pointer initialization. */ symbol_attribute attr; |