projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 29bf433)
Fix typo in subroutine check
authorZack Weinberg <zack@gcc.gnu.org>
Mon, 12 Apr 1999 18:49:47 +0000 (18:49 +0000)
committerZack Weinberg <zack@gcc.gnu.org>
Mon, 12 Apr 1999 18:49:47 +0000 (18:49 +0000)
From-SVN: r26384

gcc/testsuite/g77.f-torture/execute/19990325-0.f patch | blob | history
gcc/testsuite/g77.f-torture/execute/19990325-1.f patch | blob | history

diff --git a/gcc/testsuite/g77.f-torture/execute/19990325-0.f b/gcc/testsuite/g77.f-torture/execute/19990325-0.f
index 13f57a15f9038993987cea2b8a364444b9ed589d..a230362fdde74d892b0aaed9c2c66859c1e39bb0 100644 (file)
--- 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 a146f6efab82fdb2deaee260c98129708fca4494..802f375b33d49bafd926d4bc21d3e63c329358b4 100644 (file)
--- 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