diff options
Diffstat (limited to 'libgfortran/runtime/bounds.c')
| -rw-r--r-- | libgfortran/runtime/bounds.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/runtime/bounds.c b/libgfortran/runtime/bounds.c index 35bfa1e..b39b743 100644 --- a/libgfortran/runtime/bounds.c +++ b/libgfortran/runtime/bounds.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2009 +/* Copyright (C) 2009, 2012 Free Software Foundation, Inc. Contributed by Thomas Koenig @@ -217,7 +217,7 @@ index_type count_0 (const gfc_array_l1 * array) rank = GFC_DESCRIPTOR_RANK (array); kind = GFC_DESCRIPTOR_SIZE (array); - base = array->data; + base = array->base_addr; if (kind == 1 || kind == 2 || kind == 4 || kind == 8 #ifdef HAVE_GFC_LOGICAL_16 |