Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/array_constructor_12.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! Like array_constructor_6.f90, but check integer(8) iterators. ! { dg-do run } program main integer (kind = 8) :: i, l8, u8, step8 integer (kind = 4) :: l4, step4 integer (kind = 8), parameter :: big = 10000000000_8 l4 = huge (l4) u8 = l4 + 10_8 step4 = 2 call test ((/ (i, i = l4, u8, step4) /), l4 + 0_8, u8, step4 + 0_8) l8 = big u8 = big * 20 step8 = big call test ((/ (i, i = l8, u8, step8) /), l8, u8, step8) u8 = big + 100 l8 = big step4 = -20 call test ((/ (i, i = u8, l8, step4) /), u8, l8, step4 + 0_8) u8 = big * 40 l8 = big * 20 step8 = -big * 2 call test ((/ (i, i = u8, l8, step8) /), u8, l8, step8) u8 = big l4 = big / 100 step4 = -big / 500 call test ((/ (i, i = u8, l4, step4) /), u8, l4 + 0_8, step4 + 0_8) u8 = big * 40 + 200 l4 = 200 step8 = -big call test ((/ (i, i = u8, l4, step8) /), u8, l4 + 0_8, step8) contains subroutine test (a, l, u, step) integer (kind = 8), dimension (:), intent (in) :: a integer (kind = 8), intent (in) :: l, u, step integer (kind = 8) :: i integer :: j j = 1 do i = l, u, step if (a (j) .ne. i) call abort j = j + 1 end do if (size (a, 1) .ne. j - 1) call abort end subroutine test end program main