1! { dg-do compile }
2
3  implicit none
4  integer, parameter :: arr(2) = [ 1, 3 ]
5  real, parameter :: arr2(2) = [ 1.5, 2.1 ]
6  integer, parameter :: j = int(sum(arr))
7  integer, parameter :: k = ceiling(sum(arr2))
8  real(kind=j) :: x1
9  real(kind=k) :: x2
10
11  print *, j, k
12  print *, x1, x2
13
14  end
15