loop12f90.f90   loop12f90.f90 
SUBROUTINE loop12_F90(N, y, a, x, b, c, d, u)
SUBROUTINE loop12_F90(N, y, x, a, b, c, d, u)
INTEGER i, N INTEGER i, N
REAL*8 y(N), a(N), x(N), b(N), c(N), d(N), u REAL*8 y(N), x(N), a(N), b(N), c(N), d(N), u
y=u+a y = u+a; x = a+b+c+d
x=a+b+c+d
RETURN RETURN
END END
SUBROUTINE loop12_F90Overhead(N, y, a, x, b, c, d, u) SUBROUTINE loop12_F90Overhead(N, y, x, a, b, c, d, u)
INTEGER i, N INTEGER i, N
REAL*8 y(N), a(N), x(N), b(N), c(N), d(N), u REAL*8 y(N), x(N), a(N), b(N), c(N), d(N), u
RETURN RETURN
END END
 End of changes. 5 change blocks. 
6 lines changed or deleted 6 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/