1 2 3 4 5 6 7
subroutine string_inout_optional(output) implicit none character*(32), optional, intent(inout) :: output if (present(output)) then output="output string" endif end subroutine