From d4ecc3778c16c85a50b517ea4530521cc4b5ad4c Mon Sep 17 00:00:00 2001
From: Zack Weinberg <zack@gcc.gnu.org>
Date: Mon, 12 Apr 1999 18:49:47 +0000
Subject: [PATCH] Fix typo in subroutine check

From-SVN: r26384
---
 gcc/testsuite/g77.f-torture/execute/19990325-0.f | 2 +-
 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 13f57a15f90..a230362fdde 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 a146f6efab8..802f375b33d 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