1! RUN: bbc %s -o - | FileCheck %s 2 3! CHECK-LABEL: _QPsub 4 5! F77 code for the array computation c = ((a + b) * c) + (b / 2.0). 6! (Eventually, test that the temporary arrays are eliminated.) 7subroutine sub(a,b,c,i,j,k) 8 real a(i,j,k), b(i,j,k), c(i,j,k) 9 real t1(i,j,k), t2(i,j,k) 10 integer i, j, k 11 integer r, s, t 12 13 do t = 1, k 14 do s = 1, j 15 do r = 1, i 16 t1(r,s,t) = a(r,s,t) + b(r,s,t) 17 end do 18 end do 19 end do 20 do t = 1, k 21 do s = 1, j 22 do r = 1, i 23 t2(r,s,t) = t1(r,s,t) * c(r,s,t) 24 end do 25 end do 26 end do 27 do t = 1, k 28 do s = 1, j 29 do r = 1, i 30 c(r,s,t) = t2(r,s,t) + b(r,s,t) / 2.0 31 end do 32 end do 33 end do 34end subroutine sub 35