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