* expr.c (scalarize_intrinsic_call): Take care of optional
arguments.
* gfortran.dg/pr61454.f90: New file.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@211822
138bc75d-0d04-0410-961f-
82ee72b054a4
+2014-06-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
+
+ PR fortran/61454
+ * expr.c (scalarize_intrinsic_call): Take care of optional
+ arguments.
+
2014-06-19 Tobias Burnus <burnus@net-b.de>
* trans-intrinsic.c (conv_co_minmaxsum): Fix argument
for (; a; a = a->next)
{
n++;
- if (a->expr->expr_type != EXPR_ARRAY)
+ if (!a->expr || a->expr->expr_type != EXPR_ARRAY)
continue;
array_arg = n;
expr = gfc_copy_expr (a->expr);
+2014-06-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
+
+ PR fortran/61454
+ * gfortran.dg/pr61454.f90: New file.
+
2014-06-19 Terry Guo <terry.guo@arm.com>
* gcc.target/arm/thumb1-load-64bit-constant-1.c: New test.
--- /dev/null
+! { dg-do compile }
+
+ implicit none
+ integer, parameter :: arr(2) = [ 1, 3 ]
+ real, parameter :: arr2(2) = [ 1.5, 2.1 ]
+ integer, parameter :: j = int(sum(arr))
+ integer, parameter :: k = ceiling(sum(arr2))
+ real(kind=j) :: x1
+ real(kind=k) :: x2
+
+ print *, j, k
+ print *, x1, x2
+
+ end