git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix typo in subroutine check 

From-SVN: r26384
This commit is contained in:
Zack Weinberg 1999-04-12 18:49:47 +00:00
parent 29bf433b85
commit d4ecc3778c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/testsuite/g77.f-torture/execute/19990325-0.f
View File

@ -308,6 +308,6 @@
complex expect, got complex expect, got
if (aimag(expect) .ne. aimag(got)) call abort 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 end

2
gcc/testsuite/g77.f-torture/execute/19990325-1.f
View File

@ -308,6 +308,6 @@
double complex expect, got double complex expect, got
if (dimag(expect) .ne. dimag(got)) call abort 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 end