/* APPLE LOCAL file lno */ /* { dg-do compile } */ /* { dg-options "-O1 -floop-test -fdump-tree-lptest-details" } */ /* That's a reduced testcase of one of my favourite simulation programs. This is also known under the name: "Newton's falling apple". The general version is known under the name: "the N-body simulation problem". The physics terminology is the best to describe the scalar evolution algorithm: - first determine the initial conditions of the system, - then analyze its evolution. */ double Newton_s_apple () { /* Initial conditions. */ double g = -10.0; double speed_z = 0; double altitude = 3000; double delta_t = 0.1; double total_time = 0; /* Laws of evolution. */ while (altitude > 0.0) { speed_z += g * delta_t; altitude += speed_z * delta_t; total_time += delta_t; } return total_time; } /* speed_z -> {0.0, +, -1.0e+0}_1 altitude -> {3.0e+3, +, {(0.0 + -1.0e+0) * 1.00000000000000005551115123125782702118158340454e-1, +, -1.0e+0 * 1.00000000000000005551115123125782702118158340454e-1}_1}_1 */ /* FIXME. */