34 lines
1.2 KiB
Fortran
34 lines
1.2 KiB
Fortran
subroutine testStdOE
|
|
character*256 filename,tag
|
|
character*1 stdTypeRet
|
|
|
|
call writeStd("hello")
|
|
filename = "testStdOut.log"
|
|
call setStdOutFile(filename)
|
|
tag = 'TestTag'
|
|
call setStdOutFileTag(tag)
|
|
filename = "testStdErr.log"
|
|
call setStdErrFile(filename)
|
|
call writeStdOut("first message")
|
|
call writeStdErr("first message")
|
|
call writeStdOut("second message")
|
|
call writeStdErr("second message")
|
|
call setStdOut("screen")
|
|
call setStdErr("screen")
|
|
call writeStdOut("first message")
|
|
call writeStdErr("first message")
|
|
call writeStdOut("second message")
|
|
call writeStdErr("second message")
|
|
filename = "test.log"
|
|
call writeStdFile(filename,"first message")
|
|
call writeStdFile(filename,"second message")
|
|
call getStdOut(stdTypeRet)
|
|
call writeStd(stdTypeRet)
|
|
call getStdErr(stdTypeRet)
|
|
call writeStd(stdTypeRet)
|
|
call setStdOut("file")
|
|
call setStdErr("file")
|
|
call writeStdOut("third message")
|
|
call writeStdErr("third message")
|
|
end
|