1! Program to test the real->integer conversion routines.
2program intrinsic_integer
3  implicit none
4
5  call test (0.0, (/0, 0, 0, 0/))
6  call test (0.3, (/0, 1, 0, 0/))
7  call test (0.7, (/0, 1, 0, 1/))
8  call test (-0.3, (/-1, 0, 0, 0/))
9  call test (-0.7, (/-1, 0, 0, -1/))
10contains
11subroutine test(val, res)
12  real :: val
13  integer, dimension(4) :: res
14
15  if ((floor(val) .ne. res(1)) .or. (ceiling(val) .ne. res(2)) &
16      .or. (int(val) .ne. res(3)) .or. (nint(val) .ne. res(4))) STOP 1
17end subroutine
18end program
19