diff options
| author | Uros Bizjak <ubizjak@gmail.com> | 2016-09-06 15:25:09 +0000 |
|---|---|---|
| committer | Uros Bizjak <ubizjak@gmail.com> | 2016-09-06 15:25:09 +0000 |
| commit | d2c2e812845fb9e378fae02e81472f6f4177da60 (patch) | |
| tree | dd822129a93c793e99e387113c593582dea7c8f0 | |
| parent | 9b4dfa7dc49d2cb956439fb8cf1fbec212e5c962 (diff) | |
* 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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <ubizjak@gmail.com> + + * gfortran.dg/c_by_val_1.f: Correct the call to c_to_c and c_to_c8. + 2016-08-29 Uros Bizjak <ubizjak@gmail.com> 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 |