From b093626575a145de8d1fb6a4722156a17c313b52 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 23 Jun 2014 19:09:08 +0200 Subject: trans-decl.c (gfc_trans_deferred_vars): Fix handling of explicit-size arrays with -fcoarray=lib. gcc/fortran/ 2014-06-23 Tobias Burnus * trans-decl.c (gfc_trans_deferred_vars): Fix handling of explicit-size arrays with -fcoarray=lib. gcc/testsuite/ 2014-06-23 Tobias Burnus * gfortran.dg/coarray_32.f90: New. From-SVN: r211907 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-decl.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8a9316e..05df7c1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2014-06-23 Tobias Burnus + + * trans-decl.c (gfc_trans_deferred_vars): Fix handling of + explicit-size arrays with -fcoarray=lib. + 2014-06-20 Francois-Xavier Coudert PR fortran/33363 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index f1a18c3..291dd1f 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -3870,7 +3870,7 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block) NULL_TREE); continue; } - else if (gfc_option.coarray != GFC_FCOARRAY_LIB) + else { gfc_save_backend_locus (&loc); gfc_set_backend_locus (&sym->declared_at); -- cgit v1.1