diff --git a/gcc/testsuite/g77.f-torture/execute/19990325-0.f b/gcc/testsuite/g77.f-torture/execute/19990325-0.f
index 13f57a15f903..a230362fdde7 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 a146f6efab82..802f375b33d4 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