c_by_val_1.f: Correct the call to c_to_c and c_to_c8.

	* gfortran.dg/c_by_val_1.f: Correct the call to c_to_c and c_to_c8.

From-SVN: r240009

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 80905adf31473fa47d4df18189e4622efd91bb0f..acb0e201b5b5597fc143fc5b22381e7a8dca8ba1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2016-09-06  Uros Bizjak  <ubizjak@gmail.com>
+
+       * gfortran.dg/c_by_val_1.f: Correct the call to c_to_c and c_to_c8.
+
 2016-09-06  Martin Liska  <mliska@suse.cz>
 
        PR gcov-profile/77378

diff --git a/gcc/testsuite/gfortran.dg/c_by_val_1.f b/gcc/testsuite/gfortran.dg/c_by_val_1.f
index af1e25a6b88a2255e039101ad05ac7d7866d0a76..3c5c3d7def7b6c8bf41fee3e92e6367e88911540 100644 (file)
--- a/gcc/testsuite/gfortran.dg/c_by_val_1.f
+++ b/gcc/testsuite/gfortran.dg/c_by_val_1.f
@@ -9,8 +9,8 @@ C { dg-options "-ff2c -w -O0" }
       real(8)    a8, b8, c8
       integer(4) i, j, k
       integer(8) i8, j8, k8
-      complex    u, v, w, c_to_c
-      complex(8) u8, v8, w8, c_to_c8
+      complex    u, v, w
+      complex(8) u8, v8, w8
 
       a = 42.0
       b = 0.0
@@ -39,13 +39,13 @@ C { dg-options "-ff2c -w -O0" }
       u = (-1.0, 2.0)
       v = (1.0, -2.0)
       w = u
-      v = c_to_c (%VAL (u), %REF (w), %LOC (w))
+      call c_to_c (v, %VAL (u), %REF (w), %LOC (w))
       if ((4.0 * u).ne.v) call abort ()
 
       u8 = (-1.0, 2.0)
       v8 = (1.0, -2.0)
       w8 = u8
-      v8 = c_to_c8 (%VAL (u8), %REF (w8), %LOC (w8))
+      call c_to_c8 (v8, %VAL (u8), %REF (w8), %LOC (w8))
       if ((4.0 * u8).ne.v8) call abort ()
 
       stop