1 subroutine s235 (ntimes,ld,n,ctime,dtime,a,b,c,d,e,aa,bb,cc) 2c 3c loop interchanging 4c imperfectly nested loops 5c 6 integer ntimes, ld, n, i, nl, j 7 double precision a(n), b(n), c(n), d(n), e(n), aa(ld,n), 8 + bb(ld,n), cc(ld,n) 9 double precision chksum, cs1d, cs2d 10 real t1, t2, second, ctime, dtime 11 12 call init(ld,n,a,b,c,d,e,aa,bb,cc,'s235 ') 13 t1 = second() 14 do 1 nl = 1,ntimes/n 15 do 10 i = 1,n 16 a(i) = a(i) + b(i) * c(i) 17 do 20 j = 2,n 18 aa(i,j) = aa(i,j-1) + bb(i,j) * a(i) 19 20 continue 20 10 continue 21 call dummy(ld,n,a,b,c,d,e,aa,bb,cc,1.d0) 22 1 continue 23 t2 = second() - t1 - ctime - ( dtime * float(ntimes/n) ) 24 chksum = cs2d(n,aa) + cs1d(n,a) 25 call check (chksum,(ntimes/n)*n*(n-1),n,t2,'s235 ') 26 return 27 end 28 29! { dg-final { scan-tree-dump-times "will be interchanged" 1 "graphite" { xfail *-*-* } } } 30! { dg-final { cleanup-tree-dump "graphite" } } 31