1 subroutine s235
(ntimes
,ld
,n
,ctime
,dtime
,a
,b
,c
,d
,e
,aa
,bb
,cc
)
4 c imperfectly nested loops
6 integer ntimes
, ld
, n
, i
, nl
, j
7 double precision a
(n
), b
(n
), c
(n
), d
(n
), e
(n
), aa
(ld
,n
),
9 double precision chksum
, cs1d
, cs2d
10 real t1
, t2
, second
, ctime
, dtime
12 call init
(ld
,n
,a
,b
,c
,d
,e
,aa
,bb
,cc
,'s235 ')
16 a
(i
) = a
(i
) + b
(i
) * c
(i
)
18 aa
(i
,j
) = aa
(i
,j
-1) + bb
(i
,j
) * a
(i
)
21 call dummy
(ld
,n
,a
,b
,c
,d
,e
,aa
,bb
,cc
,1.d0
)
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 ')
29 ! { dg
-final
{ scan
-tree
-dump
-times
"will be interchanged" 1 "graphite" { xfail
*-*-* } } }
30 ! { dg
-final
{ cleanup
-tree
-dump
"graphite" } }