diff options
author | Tobias Burnus <burnus@net-b.de> | 2014-06-23 17:09:08 +0000 |
---|---|---|
committer | Tobias Burnus <burnus@net-b.de> | 2014-06-23 17:09:08 +0000 |
commit | b4cbe2bfb21a163d9ad29efdff513fc574909c88 (patch) | |
tree | c1ad85e9165621216f58f35bb22f0600608c8f8d /gcc/fortran/trans-decl.c | |
parent | c0da526771bc8ae010414977dbf527ca11dcd54e (diff) |
gcc/fortran/
2014-06-23 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_trans_deferred_vars): Fix handling of
explicit-size arrays with -fcoarray=lib.
gcc/testsuite/
2014-06-23 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray_32.f90: New.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@211907 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-decl.c')
-rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index f1a18c3cfd2..291dd1f3a83 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); |