>>71
program memtest
integer, allocatable :: imem(:)
msize = 1000*1000 * 200
call alloc4i
stop

contains
　subroutine alloc4i
　　if ( .not. allocated(imem) ) then
　　　allocate ( imem(msize), stat=ier )
　　　if (ier .ne. 0) stop
　　else
　　　stop
　　endif
　　return
　end subroutine
end program

レスどうもです。こんな感じでしょうか？
たしかにコンパイルは通りました。ただ、ライブラリ化
したいため、分割コンパイルしたいのです。何とか
外部プログラムで実現できないでしょうか・・・