Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/array_constructor_8.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
33 33
34 subroutine test (order, repeat, trail, values) 34 subroutine test (order, repeat, trail, values)
35 integer, dimension (:) :: values 35 integer, dimension (:) :: values
36 integer :: order, repeat, trail, i 36 integer :: order, repeat, trail, i
37 37
38 if (size (values, dim = 1) .ne. order * repeat + trail) call abort 38 if (size (values, dim = 1) .ne. order * repeat + trail) STOP 1
39 do i = 1, order * repeat 39 do i = 1, order * repeat
40 if (values (i) .ne. mod (i - 1, repeat) + 1) call abort 40 if (values (i) .ne. mod (i - 1, repeat) + 1) STOP 2
41 end do 41 end do
42 do i = 1, trail 42 do i = 1, trail
43 if (values (i + order * repeat) .ne. i * 100) call abort 43 if (values (i + order * repeat) .ne. i * 100) STOP 3
44 end do 44 end do
45 end subroutine test 45 end subroutine test
46 end program main 46 end program main