From: Uros Bizjak <ubizjak@gmail.com>
Date: Tue, 6 Sep 2016 15:13:06 +0000 (+0200)
Subject: c_by_val_1.f: Correct the call to c_to_c and c_to_c8.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e6cb85d435baf64ba081e4e9c6a3387680fc1772;p=gcc.git

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 80905adf314..acb0e201b5b 100644
--- 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 af1e25a6b88..3c5c3d7def7 100644
--- 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