From d2c2e812845fb9e378fae02e81472f6f4177da60 Mon Sep 17 00:00:00 2001 From: Uros Bizjak Date: Tue, 6 Sep 2016 15:25:09 +0000 Subject: * gfortran.dg/c_by_val_1.f: Correct the call to c_to_c and c_to_c8. git-svn-id: https://gcc.gnu.org/svn/gcc/branches/gcc-5-branch@240011 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/c_by_val_1.f | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cfb81fc3d21..50779149fc2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2016-09-06 Uros Bizjak + + * gfortran.dg/c_by_val_1.f: Correct the call to c_to_c and c_to_c8. + 2016-08-29 Uros Bizjak PR target/77403 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 -- cgit v1.2.3