- 186 名前：デフォルトの名無しさん mailto:sage [2007/04/30(月) 20:37:51 ]
- 入り口も出口も複数
subroutine hoge(i, j, k, *, *)
k = i + j
entry huge(k, *, *)
k = k - 1
if (k .ne. 0) return 1
return 2
end
program main
read(*,*) n1, n2
call hoge(n1, n2, i, *100, *300)
100 write(*,*) n1, ' + ', n2, ' - 1 = ', i
i = 10
200 write(*,*) i
call huge(i, *200, *300)
300 write(*,*) 'end'
end
