new_line(x)：换行符¶

换行符。

声明¶

retval = new_line(x)
function new_line(c)

输入参数 x 必须是字符类型。它可以是标量或数组。

返回值是一个长度为 1 的字符，并附加了与 x 相同类型的换行符。

new_line(x) 返回换行符。返回值是 ASCII 换行符。

支持的输入参数类型是字符。

function new_line(c) result(r)
character(len=1), intent(in) :: c
character(len=1) :: r
end function

program intrinsics_new_line
    implicit none
	print *, 'This is record 1.'//new_line('A')//'This is record 2.'
end program

结果：

This is record 1.A
This is record 2.

无。