test_dtio Subroutine

public subroutine test_dtio()

Arguments

None

Source Code

   subroutine test_dtio()
      type(String) :: s

      s = String('abc')
   end subroutine test_dtio