10 lines
120 B
Forth
10 lines
120 B
Forth
program test_loc
|
|
|
|
implicit none
|
|
integer :: i
|
|
real :: r
|
|
|
|
i = loc (r)
|
|
write (*, '(i0)') i
|
|
|
|
end program test_loc
|