Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/implied_do_io_3.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! { dg-options "-ffrontend-optimize" }
kono
parents:
diff changeset
3 ! PR 80988 - implied do loops with diagonal elements
kono
parents:
diff changeset
4 ! were not written correctly
kono
parents:
diff changeset
5 program main
kono
parents:
diff changeset
6 implicit none
kono
parents:
diff changeset
7 integer :: i,j,k
kono
parents:
diff changeset
8 integer, dimension(3,3) :: a
kono
parents:
diff changeset
9 integer, dimension(3,3,3) :: b
kono
parents:
diff changeset
10 character(len=40) :: line
kono
parents:
diff changeset
11 a = reshape([(((i*10+j),i=1,3),j=1,3)], shape(a))
kono
parents:
diff changeset
12 i = 2147483548
kono
parents:
diff changeset
13 write (unit=line,fmt='(10I3)') (a(i,i),i=1,3)
kono
parents:
diff changeset
14 if (line /= ' 11 22 33') call abort
kono
parents:
diff changeset
15 write (unit=line,fmt='(10I3)') (a(i+1,i+1),i=1,2)
kono
parents:
diff changeset
16 if (line /= ' 22 33') call abort
kono
parents:
diff changeset
17 do k=1,3
kono
parents:
diff changeset
18 do j=1,3
kono
parents:
diff changeset
19 do i=1,3
kono
parents:
diff changeset
20 b(i,j,k) = i*100 + j*10 + k
kono
parents:
diff changeset
21 end do
kono
parents:
diff changeset
22 end do
kono
parents:
diff changeset
23 end do
kono
parents:
diff changeset
24 i = -2147483548
kono
parents:
diff changeset
25 write (unit=line,fmt='(10I4)') ((b(i,j,i),i=1,3),j=1,3)
kono
parents:
diff changeset
26 if (line /= ' 111 212 313 121 222 323 131 232 333') call abort
kono
parents:
diff changeset
27 end program main