35 lines · plain
1! RUN: bbc %s -o - | FileCheck %s2 3! CHECK-LABEL: _QPsub4 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, k11 integer r, s, t12 13 do t = 1, k14 do s = 1, j15 do r = 1, i16 t1(r,s,t) = a(r,s,t) + b(r,s,t)17 end do18 end do19 end do20 do t = 1, k21 do s = 1, j22 do r = 1, i23 t2(r,s,t) = t1(r,s,t) * c(r,s,t)24 end do25 end do26 end do27 do t = 1, k28 do s = 1, j29 do r = 1, i30 c(r,s,t) = t2(r,s,t) + b(r,s,t) / 2.031 end do32 end do33 end do34end subroutine sub35