!+
! Subroutine out_io_line (line)
!
! Dummy routine for linker.
! See out_io for more details.
!-

Subroutine out_io_line (line)

use fortran_cpp_utils

implicit none

character(*) line
character(len(line)) li

!

call remove_null_in_string (line, li)
print *, '   ', trim(li)

end subroutine out_io_line