３つの結果は
①一回目は上手くいくが、二回目はリストが解放されず、三回目で止まる
②うまくいく
③十回全てで、リストは表示されるが、解放はされない

Add、Print、Freeに対するworkとrootの組み合わせをまとめると
(A, P, F)=
①(w, w, w)、(r , w, w)
②(w, w, r )、(r , w, r )
③(w, r , r )、(r , r , w)、(r , r , r)
です

ソースファイルは以下のURLです
どなたかよろしくお願いします

ttp://www1.axfc.net/uploader/Sc/so/306237
パスはfortranです

コンパイルするのは source comp です。
問題の箇所はtmod.f90の36行目あたりです。