あれ？コンパイルできない・・・。
　　　　　　real x
　　　　　　integer l
　　　　　　call srand(1234)
　　　　　　do=1,5
　　　　　　　x= rand()
　　　　　　　write(*,*) x
　　　　　　enddo
　　　　　　end
とするとできるのですが、普通のサブルーチンと扱いが違うのですかね？
あたふたしてすみません。