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
+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
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);