xref: /original-bsd/usr.bin/f77/libU77/test/systst.f (revision e61fc7ea) 
1	program systst
2	integer system
3	write(*,*) "date", system("date")
4	write(*,*) "rm xxx", system("rm xxx")
5	end
6