この関数は、初期化する必要のあるデータを 1 回だけ初期化するために使用できます。この関数を呼び出す最初のスレッドは、initr を呼び出して初期化を実行します。他のスレッドがこの関数を後から呼び出しても、何の影響もありません。引き数 initr は、仮引き数のないサブルーチンでなければなりません。
戻りコード
この関数の実行時にエラーを検出すると、以下のエラー・コードを戻します。
例
integer function f_pthread_once(once, initr) type(f_pthread_once_t), intent(inout):: once external initr end function