This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch,Fortran] Coarrays 8/n: Add intrinsics (part 1) (PR 18918)
- From: Tobias Burnus <burnus at net-b dot de>
- To: Jerry DeLisle <jvdelisle at verizon dot net>
- Cc: gcc patches <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>
- Date: Wed, 14 Apr 2010 07:44:08 +0200
- Subject: Re: [Patch,Fortran] Coarrays 8/n: Add intrinsics (part 1) (PR 18918)
- References: <4BC03B1E.7010201@net-b.de> <4BC51E27.10905@verizon.net>
Am 14.04.2010 03:45, schrieb Jerry DeLisle:
> On 04/10/2010 01:47 AM, Tobias Burnus wrote:
>> Additionally, it adds THIS_IMAGE(coarray[, dim]), IMAGE_INDEX(coarray,
>> sub), UCOBOUND(coarray[, dim) and LCOBOUND(coarray[, dim]) for the case
>> that the cobounds are known at compile time.
> This OK before the other one.
Thanks for the review. I have also included the following patch to avoid
a segfault (e is *known* to be NULL while array is known not to be NULL).
Committed as Rev. 158292.
Tobias
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 8e8e125..1838c00 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -3058,7 +3058,7 @@ gfc_simplify_lcobound (gfc_expr *array, gfc_expr
*dim, gfc_expr *kind)
return e;
gfc_error ("Not yet implemented: LCOBOUND for coarray with non-constant "
- "cobounds at %L", &e->where);
+ "cobounds at %L", &array->where);
return &gfc_bad_expr;
}
@@ -5561,7 +5561,7 @@ gfc_simplify_ucobound (gfc_expr *array, gfc_expr
*dim, gfc_expr *kind)
return e;
gfc_error ("Not yet implemented: UCOBOUND for coarray with non-constant "
- "cobounds at %L", &e->where);
+ "cobounds at %L", &array->where);
return &gfc_bad_expr;
}