Mercurial > hg > CbC > CbC_gcc
diff gcc/fortran/dependency.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line diff
--- a/gcc/fortran/dependency.c Fri Oct 27 22:46:09 2017 +0900 +++ b/gcc/fortran/dependency.c Thu Oct 25 07:37:49 2018 +0900 @@ -1,5 +1,5 @@ /* Dependency analysis - Copyright (C) 2000-2017 Free Software Foundation, Inc. + Copyright (C) 2000-2018 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of GCC. @@ -240,7 +240,7 @@ /* Special case: String arguments which compare equal can have different lengths, which makes them different in calls to procedures. */ - + if (e1->expr_type == EXPR_CONSTANT && e1->ts.type == BT_CHARACTER && e2->expr_type == EXPR_CONSTANT @@ -1431,17 +1431,17 @@ r_stride = r_ar->stride[n]; /* If l_start is NULL take it from array specifier. */ - if (NULL == l_start && IS_ARRAY_EXPLICIT (l_ar->as)) + if (l_start == NULL && IS_ARRAY_EXPLICIT (l_ar->as)) l_start = l_ar->as->lower[n]; /* If l_end is NULL take it from array specifier. */ - if (NULL == l_end && IS_ARRAY_EXPLICIT (l_ar->as)) + if (l_end == NULL && IS_ARRAY_EXPLICIT (l_ar->as)) l_end = l_ar->as->upper[n]; /* If r_start is NULL take it from array specifier. */ - if (NULL == r_start && IS_ARRAY_EXPLICIT (r_ar->as)) + if (r_start == NULL && IS_ARRAY_EXPLICIT (r_ar->as)) r_start = r_ar->as->lower[n]; /* If r_end is NULL take it from array specifier. */ - if (NULL == r_end && IS_ARRAY_EXPLICIT (r_ar->as)) + if (r_end == NULL && IS_ARRAY_EXPLICIT (r_ar->as)) r_end = r_ar->as->upper[n]; /* Determine whether the l_stride is positive or negative. */ @@ -1907,7 +1907,7 @@ /* Determine if an array ref, usually an array section specifies the entire array. In addition, if the second, pointer argument is provided, the function will return true if the reference is - contiguous; eg. (:, 1) gives true but (1,:) gives false. + contiguous; eg. (:, 1) gives true but (1,:) gives false. If one of the bounds depends on a dummy variable which is not INTENT(IN), also return false, because the user may have changed the variable. */