parent
c6a754f2d7
commit
06b0a933a2
|
@ -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
|
|
@ -0,0 +1,6 @@
|
|||
logical l(10)
|
||||
integer i(10)
|
||||
goto (10,20),l
|
||||
goto (10,20),i
|
||||
10 stop
|
||||
20 end
|
Loading…
Reference in New Issue