diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990325-0.f | 2 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990325-1.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/19990325-0.f b/gcc/testsuite/g77.f-torture/execute/19990325-0.f index 13f57a1..a230362 100644 --- a/gcc/testsuite/g77.f-torture/execute/19990325-0.f +++ b/gcc/testsuite/g77.f-torture/execute/19990325-0.f @@ -308,6 +308,6 @@ complex expect, got 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 diff --git a/gcc/testsuite/g77.f-torture/execute/19990325-1.f b/gcc/testsuite/g77.f-torture/execute/19990325-1.f index a146f6e..802f375 100644 --- a/gcc/testsuite/g77.f-torture/execute/19990325-1.f +++ b/gcc/testsuite/g77.f-torture/execute/19990325-1.f @@ -308,6 +308,6 @@ double complex expect, got 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 |