Fortran IO锁定/嵌套打印语句

Question

我有一个简单的程序，应该打印函数的返回值。 如果函数包含print语句，则程序永远不会终止。 这是从外部打印生成的某种IO锁定，它会阻止函数内部的打印完成吗？

program print
  implicit none
  print *, func()
contains
  function func() result(res)
    integer   :: res
    res = 3
    print *, "jojo"
  end function
end program