diff options
author | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-11-30 15:59:07 +0000 |
---|---|---|
committer | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-11-30 15:59:07 +0000 |
commit | 6d65a6241fac295113be8312cf91dd7635317ee3 (patch) | |
tree | ebe00badd50927fac4232ca1a5b4e3fbd32a1865 /libgfortran | |
parent | 0effb3779e76ace6d1ee49bc173775e766d2687d (diff) |
libgfortran/ChangeLog:
2016-11-30 Andre Vehreschild <vehre@gcc.gnu.org>
* caf/single.c (_gfortran_caf_get_by_ref): Prevent compile time
warning.
(_gfortran_caf_send_by_ref): Same.
(_gfortran_caf_is_present): Prevent fallthrough warnings.
gcc/testsuite/ChangeLog:
2016-11-30 Andre Vehreschild <vehre@gcc.gnu.org>
* ChangeLog: Removed wrongly placed entry.
* gfortran.dg/coarray_lib_alloc_4.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@243034 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
-rw-r--r-- | libgfortran/caf/single.c | 4 |
2 files changed, 9 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 97dda7b92d9..d3966f5d54c 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,12 @@ 2016-11-30 Andre Vehreschild <vehre@gcc.gnu.org> + * caf/single.c (_gfortran_caf_get_by_ref): Prevent compile time + warning. + (_gfortran_caf_send_by_ref): Same. + (_gfortran_caf_is_present): Prevent fallthrough warnings. + +2016-11-30 Andre Vehreschild <vehre@gcc.gnu.org> + * caf/libcaf.h: Add new action types for (de-)registration of allocatable components in derived type coarrays. Add _caf_is_present prototype. diff --git a/libgfortran/caf/single.c b/libgfortran/caf/single.c index 3eceed90087..d1b33592502 100644 --- a/libgfortran/caf/single.c +++ b/libgfortran/caf/single.c @@ -1471,7 +1471,7 @@ _gfortran_caf_get_by_ref (caf_token_t token, size_t dst_index[GFC_MAX_DIMENSIONS]; int dst_rank = GFC_DESCRIPTOR_RANK (dst); int dst_cur_dim = 0; - size_t src_size; + size_t src_size = 0; caf_single_token_t single_token = TOKEN (token); void *memptr = single_token->memptr; gfc_descriptor_t *src = single_token->desc; @@ -2325,7 +2325,7 @@ _gfortran_caf_send_by_ref (caf_token_t token, size_t dst_index[GFC_MAX_DIMENSIONS]; int src_rank = GFC_DESCRIPTOR_RANK (src); int src_cur_dim = 0; - size_t src_size; + size_t src_size = 0; caf_single_token_t single_token = TOKEN (token); void *memptr = single_token->memptr; gfc_descriptor_t *dst = single_token->desc; |