File: testdo.r

package info (click to toggle)

ratfor 1.07-1

file content (7 lines) | stat: -rw-r--r-- 97 bytes

integer i
# simple test of ratfor-style do statement
do i = 1, 10 {
    write (6,*) i
}
stop
end