blob: 75e457267baeabd38df290b1b4f70455fe0b55e7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { 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
|
