OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix typo in subroutine check

Browse Source 
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
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

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

@ -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