Escape sequence in a string literal (Fortran)

Question

There is an example in C++

string str;
str = "First\\n"
      "Second\\n"
      "Third;\\n";
cout << str << endl;
         


        

Answer 1

One way to do it is to use new_line() intrinsic and // concatenation operator:

program main
  implicit none
  character(128) :: str
  character      :: NL = new_line("a")

  str = "first"//NL//"second"//NL//"third"
  write (*,"(a)") str

end program main