diff options
| author | Zack Weinberg <zack@gcc.gnu.org> | 1999-04-12 18:49:47 +0000 |
|---|---|---|
| committer | Zack Weinberg <zack@gcc.gnu.org> | 1999-04-12 18:49:47 +0000 |
| commit | d4ecc3778c16c85a50b517ea4530521cc4b5ad4c (patch) | |
| tree | 0e282f05c59fd60ba8cf988871f41f452d73461a | |
| parent | 29bf433b8531c5c571b0bbaafa6663595eb862c4 (diff) | |
| download | gcc-d4ecc3778c16c85a50b517ea4530521cc4b5ad4c.zip gcc-d4ecc3778c16c85a50b517ea4530521cc4b5ad4c.tar.gz gcc-d4ecc3778c16c85a50b517ea4530521cc4b5ad4c.tar.bz2 | |
Fix typo in subroutine check
From-SVN: r26384
| -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 |