From: burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 6 Apr 2011 18:30:58 +0000 (+0000)
Subject: 2011-04-06  Tobias Burnus  <burnus@net-b.de>
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=7427b1c50dc52124d36d0fd1ffe44b1a4d17fc1e;p=thirdparty%2Fgcc.git

2011-04-06  Tobias Burnus  <burnus@net-b.de>

        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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0206ba9430a5..c6cf7ff72081 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-04-06  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/18918
+	* trans-intrinsic.c (gfc_conv_intrinsic_function): Fix
+	call for this_image.
+
 2011-04-05  Nathan Froyd  <froydnj@codesourcery.com>
 
 	* trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Use
diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 9a696322d9c1..1a90204a2da2 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);