From fortran_lib/be5f31980cef519dfd8e43c12734ad37581a811d