diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-16 12:49:46 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-16 12:49:46 +0000 |
| commit | 7c94d8e52ec49fab2017f7ddb8d3d30e8bf34e96 (patch) | |
| tree | bc2750a2cfc057af93b890992e7e25971b55af1a /gcc/fortran/decl.c | |
| parent | 90f51e67ca940fb5ae291439effe23987226dc2a (diff) | |
2015-01-16 Janus Weil <janus@gcc.gnu.org>
PR fortran/45290
* decl.c (match_pointer_init): Error out if resolution of init expr
failed.
2015-01-16 Janus Weil <janus@gcc.gnu.org>
PR fortran/45290
* gfortran.dg/pointer_init_6.f90: Extended.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@219731 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index dfb760b14414..2a200fca7613 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1780,8 +1780,8 @@ match_pointer_init (gfc_expr **init, int procptr) return MATCH_ERROR; } - if (!procptr) - gfc_resolve_expr (*init); + if (!procptr && !gfc_resolve_expr (*init)) + return MATCH_ERROR; if (!gfc_notify_std (GFC_STD_F2008, "non-NULL pointer " "initialization at %C")) |