Skip to content

R
riscv-gcc-1
Commit d4ecc377 by Zack Weinberg
Options

Fix typo in subroutine check 

From-SVN: r26384
parent 29bf433b
Showing with 2 additions and 2 deletions
gcc/testsuite/g77.f-torture/execute/19990325-0.f
...@@ -308,6 +308,6 @@ ...@@ -308,6 +308,6 @@
complex expect, got complex expect, got
if (aimag(expect) .ne. aimag(got)) call abort if (aimag(expect) .ne. aimag(got)) call abort
if (real(expect) .ne. real(expect)) call abort if (real(expect) .ne. real(got)) call abort
end end
gcc/testsuite/g77.f-torture/execute/19990325-1.f
...@@ -308,6 +308,6 @@ ...@@ -308,6 +308,6 @@
double complex expect, got double complex expect, got
if (dimag(expect) .ne. dimag(got)) call abort if (dimag(expect) .ne. dimag(got)) call abort
if (dble(expect) .ne. dble(expect)) call abort if (dble(expect) .ne. dble(got)) call abort
end end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment