From 7b7c0f2a21ab089b053f3c17e4881854bea6337a Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 6 Apr 2011 20:30:58 +0200 Subject: [PATCH] re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays]) 2011-04-06 Tobias Burnus PR fortran/18918 * trans-intrinsic.c (gfc_conv_intrinsic_function): Fix call for this_image. From-SVN: r172060 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-intrinsic.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0206ba9430a..c6cf7ff7208 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-04-06 Tobias Burnus + + PR fortran/18918 + * trans-intrinsic.c (gfc_conv_intrinsic_function): Fix + call for this_image. + 2011-04-05 Nathan Froyd * trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Use diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 9a696322d9c..1a90204a2da 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -6260,7 +6260,7 @@ gfc_conv_intrinsic_function (gfc_se * se, gfc_expr * expr) break; case GFC_ISYM_THIS_IMAGE: - if (expr->value.function.actual) + if (expr->value.function.actual->expr) conv_intrinsic_cobound (se, expr); else trans_this_image (se, expr); -- 2.30.2