| commit | ec849f11ef0afffd6106229a75b362f42978f706 | |
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 9 Aug 2010 19:34:49 +0000 (9 19:34 +0000) | ||
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 9 Aug 2010 19:34:49 +0000 (9 19:34 +0000) | ||
| tree | e8a74351fdd3fd516d43ad305c53af81d3ee674d | treesnapshot (tar.gz zip) |
| parent | a08bb3575dca0eb6649255a423b4321aee01dea3 | commitdiff |
2010-08-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/44235
* array.c (gfc_ref_dimen_size): Add end argument.
If end is non-NULL, calculate it.
(ref_size): Adjust call to gfc_ref_dimen_size.
(gfc_array_dimen_size): Likewise.
(gfc_array_res_shape): Likewise.
* gfortran.h: Adjust prototype for gfc_ref_dimen_size.
* resolve.c (resolve_array_ref): For stride not equal to -1,
fill in the lowest possible end.
2010-08-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/44235
* gfortran.dg/dependency_32.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163041 138bc75d-0d04-0410-961f-82ee72b054a4
PR fortran/44235
* array.c (gfc_ref_dimen_size): Add end argument.
If end is non-NULL, calculate it.
(ref_size): Adjust call to gfc_ref_dimen_size.
(gfc_array_dimen_size): Likewise.
(gfc_array_res_shape): Likewise.
* gfortran.h: Adjust prototype for gfc_ref_dimen_size.
* resolve.c (resolve_array_ref): For stride not equal to -1,
fill in the lowest possible end.
2010-08-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/44235
* gfortran.dg/dependency_32.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163041 138bc75d-0d04-0410-961f-82ee72b054a4