diff options
| author | Uros Bizjak <ubizjak@gmail.com> | 2016-09-06 17:13:06 +0200 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2016-09-06 17:13:06 +0200 |
| commit | e6cb85d435baf64ba081e4e9c6a3387680fc1772 (patch) | |
| tree | 054b9c5cbc02d72910d9d783622335429f9aa5ec | |
| parent | 7fe76f6ae806fda9a5efe335ccf0e250dd4dde1a (diff) | |
| download | gcc-e6cb85d435baf64ba081e4e9c6a3387680fc1772.zip gcc-e6cb85d435baf64ba081e4e9c6a3387680fc1772.tar.gz gcc-e6cb85d435baf64ba081e4e9c6a3387680fc1772.tar.bz2 | |
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
| -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 80905ad..acb0e20 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 af1e25a..3c5c3d7 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 |