annotate gcc/testsuite/gfortran.dg/pr48636-2.f90 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900 (2018-10-25)
parents 04ced10e8804
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 "-O3 -fdump-ipa-cp-details -fno-inline" }
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 module foo
kono
parents:
diff changeset
5 implicit none
kono
parents:
diff changeset
6 contains
kono
parents:
diff changeset
7 subroutine bar(a,x)
kono
parents:
diff changeset
8 real, dimension(:,:), intent(in) :: a
kono
parents:
diff changeset
9 real, intent(out) :: x
kono
parents:
diff changeset
10 integer :: i,j
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 x = 0
kono
parents:
diff changeset
13 do j=1,ubound(a,2)
kono
parents:
diff changeset
14 do i=1,ubound(a,1)
kono
parents:
diff changeset
15 x = x + a(i,j)**2
kono
parents:
diff changeset
16 end do
kono
parents:
diff changeset
17 end do
kono
parents:
diff changeset
18 end subroutine bar
kono
parents:
diff changeset
19 end module foo
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 program main
kono
parents:
diff changeset
22 use foo
kono
parents:
diff changeset
23 implicit none
kono
parents:
diff changeset
24 real, dimension(2,3) :: a
kono
parents:
diff changeset
25 real :: x
kono
parents:
diff changeset
26 integer :: i
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 data a /1.0, 2.0, 3.0, -1.0, -2.0, -3.0/
kono
parents:
diff changeset
29
kono
parents:
diff changeset
30 do i=1,2000000
kono
parents:
diff changeset
31 call bar(a,x)
kono
parents:
diff changeset
32 end do
kono
parents:
diff changeset
33 print *,x
kono
parents:
diff changeset
34 end program main
kono
parents:
diff changeset
35
kono
parents:
diff changeset
36 ! { dg-final { scan-ipa-dump "Creating a specialized node of \[^\n\r\]*bar/\[0-9\]*\\." "cp" } }
kono
parents:
diff changeset
37 ! { dg-final { scan-ipa-dump-times "Aggregate replacements\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=" 2 "cp" } }