From: Thomas Koenig Date: Sun, 10 Feb 2019 15:56:41 +0000 (+0000) Subject: re PR fortran/71723 ([F08] ICE on invalid pointer initialization) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f1b7b50affd1e9eea1f1e3be8a0804fd94fb6b39;p=gcc.git re PR fortran/71723 ([F08] ICE on invalid pointer initialization) 2019-02-10 Thomas Koenig PR fortran/71723 * expr.c (gfc_check_assign): Add argument is_init_expr. If we are looking at an init expression, issue error if the target is not a TARGET and we are not looking at a procedure pointer. * gfortran.h (gfc_check_assign): Add optional argument is_init_expr. 2019-02-10 Thomas Koenig PR fortran/71723 * gfortran.dg/pointer_init_2.f90: Adjust error messages. * gfortran.dg/pointer_init_6.f90: Likewise. * gfortran.dg/pointer_init_9.f90: New test. From-SVN: r268749 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 73c42796fba..1ca41dc9031 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,6 @@ 2019-02-10 Thomas Koenig - PR fortran/71237 + PR fortran/71723 * expr.c (gfc_check_assign): Add argument is_init_expr. If we are looking at an init expression, issue error if the target is not a TARGET and we are not looking at a procedure pointer. diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c70ec9f2704..d550d9eaced 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,6 @@ 2019-02-10 Thomas Koenig - PR fortran/71237 + PR fortran/71723 * gfortran.dg/pointer_init_2.f90: Adjust error messages. * gfortran.dg/pointer_init_6.f90: Likewise. * gfortran.dg/pointer_init_9.f90: New test.