2 C { dg-additional-sources c_by_val.c }
3 C { dg-options "-ff2c -w -O0" }
6 external f_to_f, i_to_i, c_to_c
7 external f_to_f8, i_to_i8, c_to_c8
12 complex u, v, w, c_to_c
13 complex(8) u8, v8, w8, c_to_c8
18 call f_to_f (b, %VAL (a), %REF (c), %LOC (c))
19 if ((2.0 * a).ne.b) call abort ()
24 call f_to_f8 (b8, %VAL (a8), %REF (c8), %LOC (c8))
25 if ((2.0 * a8).ne.b8) call abort ()
30 call i_to_i (j, %VAL (i), %REF (k), %LOC (k))
31 if ((3 * i).ne.j) call abort ()
36 call i_to_i8 (j8, %VAL (i8), %REF (k8), %LOC (k8))
37 if ((3 * i8).ne.j8) call abort ()
42 v = c_to_c (%VAL (u), %REF (w), %LOC (w))
43 if ((4.0 * u).ne.v) call abort ()
48 v8 = c_to_c8 (%VAL (u8), %REF (w8), %LOC (w8))
49 if ((4.0 * u8).ne.v8) call abort ()