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

New File. 

From-SVN: r19294
This commit is contained in:
Dave Love 1998-04-19 05:54:09 +00:00
parent c6a754f2d7
commit 06b0a933a2
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gcc/testsuite/g77.f-torture/compile/970125-0.f Normal file
View File

@ -0,0 +1,16 @@
integer*4 i4
integer*8 i8
integer*8 max4
data max4/2147483647/
i4 = %loc(i4)
i8 = %loc(i8)
print *, max4
print *, i4, %loc(i4)
print *, i8, %loc(i8)
call foo(i4, %loc(i4), i8, %loc(i8))
end
subroutine foo(i4, i4a, i8, i8a)
integer*8 i8
print *, i4, i4a
print *, i8, i8a
end

6
gcc/testsuite/g77.f-torture/compile/980419-1.f Normal file
View File

@ -0,0 +1,6 @@
logical l(10)
integer i(10)
goto (10,20),l
goto (10,20),i
10 stop
20 end