GCC Code Coverage Report


Directory: ./
File: misc/cray.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 12 12 100.0%
Branches: 4 4 100.0%

Line Branch Exec Source
1 !
2 ! $Header$
3 !
4 1470711 subroutine scopy(n,sx,incx,sy,incy)
5 c
6 IMPLICIT NONE
7 c
8 integer n,incx,incy,ix,iy,i
9 real sx((n-1)*incx+1),sy((n-1)*incy+1)
10 c
11 iy=1
12 ix=1
13
2/2
✓ Branch 0 taken 999101143 times.
✓ Branch 1 taken 1470711 times.
1000571854 do 10 i=1,n
14 999101143 sy(iy)=sx(ix)
15 999101143 ix=ix+incx
16 999101143 iy=iy+incy
17 1470711 10 continue
18 c
19 1470711 return
20 end
21
22 3827914 function ssum(n,sx,incx)
23 c
24 IMPLICIT NONE
25 c
26 integer n,incx,i,ix
27 real ssum,sx((n-1)*incx+1)
28 c
29 ssum=0.
30 ix=1
31
2/2
✓ Branch 0 taken 145862394 times.
✓ Branch 1 taken 3827914 times.
149690308 do 10 i=1,n
32 145862394 ssum=ssum+sx(ix)
33 145862394 ix=ix+incx
34 3827914 10 continue
35 c
36 return
37 end
38