Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/implied_do_io_3.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
9 integer, dimension(3,3,3) :: b 9 integer, dimension(3,3,3) :: b
10 character(len=40) :: line 10 character(len=40) :: line
11 a = reshape([(((i*10+j),i=1,3),j=1,3)], shape(a)) 11 a = reshape([(((i*10+j),i=1,3),j=1,3)], shape(a))
12 i = 2147483548 12 i = 2147483548
13 write (unit=line,fmt='(10I3)') (a(i,i),i=1,3) 13 write (unit=line,fmt='(10I3)') (a(i,i),i=1,3)
14 if (line /= ' 11 22 33') call abort 14 if (line /= ' 11 22 33') STOP 1
15 write (unit=line,fmt='(10I3)') (a(i+1,i+1),i=1,2) 15 write (unit=line,fmt='(10I3)') (a(i+1,i+1),i=1,2)
16 if (line /= ' 22 33') call abort 16 if (line /= ' 22 33') STOP 2
17 do k=1,3 17 do k=1,3
18 do j=1,3 18 do j=1,3
19 do i=1,3 19 do i=1,3
20 b(i,j,k) = i*100 + j*10 + k 20 b(i,j,k) = i*100 + j*10 + k
21 end do 21 end do
22 end do 22 end do
23 end do 23 end do
24 i = -2147483548 24 i = -2147483548
25 write (unit=line,fmt='(10I4)') ((b(i,j,i),i=1,3),j=1,3) 25 write (unit=line,fmt='(10I4)') ((b(i,j,i),i=1,3),j=1,3)
26 if (line /= ' 111 212 313 121 222 323 131 232 333') call abort 26 if (line /= ' 111 212 313 121 222 323 131 232 333') STOP 3
27 end program main 27 end program main