From 7427b1c50dc52124d36d0fd1ffe44b1a4d17fc1e Mon Sep 17 00:00:00 2001 From: burnus Date: Wed, 6 Apr 2011 18:30:58 +0000 Subject: [PATCH] 2011-04-06 Tobias Burnus PR fortran/18918 * trans-intrinsic.c (gfc_conv_intrinsic_function): Fix call for this_image. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172060 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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.11.4.GIT