From f1b7b50affd1e9eea1f1e3be8a0804fd94fb6b39 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 10 Feb 2019 15:56:41 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 2 +- gcc/testsuite/ChangeLog | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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. -- 2.30.2