! { 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 |