git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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: r240011
This commit is contained in:
Uros Bizjak 2016-09-06 17:25:09 +02:00 committed by Uros Bizjak
parent 487f69ea23
commit f63c020d65
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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> 2016-08-29 Uros Bizjak <ubizjak@gmail.com>
PR target/77403 PR target/77403

8
gcc/testsuite/gfortran.dg/c_by_val_1.f
View File

@ -9,8 +9,8 @@ C { dg-options "-ff2c -w -O0" }
real(8) a8, b8, c8 real(8) a8, b8, c8
integer(4) i, j, k integer(4) i, j, k
integer(8) i8, j8, k8 integer(8) i8, j8, k8
complex u, v, w, c_to_c complex u, v, w
complex(8) u8, v8, w8, c_to_c8 complex(8) u8, v8, w8
a = 42.0 a = 42.0
b = 0.0 b = 0.0
@ -39,13 +39,13 @@ C { dg-options "-ff2c -w -O0" }
u = (-1.0, 2.0) u = (-1.0, 2.0)
v = (1.0, -2.0) v = (1.0, -2.0)
w = u 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 () if ((4.0 * u).ne.v) call abort ()
u8 = (-1.0, 2.0) u8 = (-1.0, 2.0)
v8 = (1.0, -2.0) v8 = (1.0, -2.0)
w8 = u8 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 () if ((4.0 * u8).ne.v8) call abort ()
stop stop