Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr70754.f90 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! { dg-options "-Ofast" }
kono
parents:
diff changeset
3 module m
kono
parents:
diff changeset
4 implicit none
kono
parents:
diff changeset
5 private
kono
parents:
diff changeset
6 save
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 integer, parameter, public :: &
kono
parents:
diff changeset
9 ii4 = selected_int_kind(6), &
kono
parents:
diff changeset
10 rr8 = selected_real_kind(13)
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 integer (ii4), dimension(40,40,199), public :: xyz
kono
parents:
diff changeset
13 public :: foo
kono
parents:
diff changeset
14 contains
kono
parents:
diff changeset
15 subroutine foo(a)
kono
parents:
diff changeset
16 real (rr8), dimension(40,40), intent(out) :: a
kono
parents:
diff changeset
17 real (rr8), dimension(40,40) :: b
kono
parents:
diff changeset
18 integer (ii4), dimension(40,40) :: c
kono
parents:
diff changeset
19 integer i, j
kono
parents:
diff changeset
20
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
21 j = 10
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
22 do i=11,30
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
23 b(i,j) = 123 * a(i,j) + 34 * a(i,j+1) &
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
24 + 34 * a(i,j-1) + a(i+1,j+1) &
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
25 + a(i+1,j-1) + a(i-1,j+1) &
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
26 + a(i-1,j-1)
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
27 c(i,j) = 123
111
kono
parents:
diff changeset
28 end do
kono
parents:
diff changeset
29
kono
parents:
diff changeset
30 where ((xyz(:,:,2) /= 0) .and. (c /= 0))
kono
parents:
diff changeset
31 a = b/real(c)
kono
parents:
diff changeset
32 elsewhere
kono
parents:
diff changeset
33 a = 456
kono
parents:
diff changeset
34 endwhere
kono
parents:
diff changeset
35 end subroutine foo
kono
parents:
diff changeset
36 end module m