| commit | bee1af9546f5e2bc4d8900aace58286f7c217fe8 | |
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 11 Apr 2011 15:50:47 +0000 (11 15:50 +0000) | ||
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 11 Apr 2011 15:50:47 +0000 (11 15:50 +0000) | ||
| tree | 387fbb7b6688f4fd0d88a06fd23809e5f79095f5 | treesnapshot (tar.gz zip) |
| parent | 783bb57e8d7e269ccdedb33cab42acecc3328e44 | commitdiff |
2011-04-11 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* simplify.c (simplify_bound_dim): Exit for
ucobound's last dimension unless -fcoarray=single.
* trans-array (gfc_conv_descriptor_size_1): Renamed from
gfc_conv_descriptor_size, made static, has now from_dim and
to_dim arguments.
(gfc_conv_descriptor_size): Call gfc_conv_descriptor_size.
(gfc_conv_descriptor_cosize): New function.
* trans-array.h (gfc_conv_descriptor_cosize): New prototype.
* trans-intrinsic.c (conv_intrinsic_cobound): Add input_location
and handle last codim of ucobound for when -fcoarray is not "single".
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172262 138bc75d-0d04-0410-961f-82ee72b054a4
PR fortran/18918
* simplify.c (simplify_bound_dim): Exit for
ucobound's last dimension unless -fcoarray=single.
* trans-array (gfc_conv_descriptor_size_1): Renamed from
gfc_conv_descriptor_size, made static, has now from_dim and
to_dim arguments.
(gfc_conv_descriptor_size): Call gfc_conv_descriptor_size.
(gfc_conv_descriptor_cosize): New function.
* trans-array.h (gfc_conv_descriptor_cosize): New prototype.
* trans-intrinsic.c (conv_intrinsic_cobound): Add input_location
and handle last codim of ucobound for when -fcoarray is not "single".
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172262 138bc75d-0d04-0410-961f-82ee72b054a4