入り口も出口も複数

　　　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