blob: 75e457267baeabd38df290b1b4f70455fe0b55e7 [file] [log] [blame]
! { 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