BSD 4_3 development

Work on file usr/src/usr.lib/libI77/test/trunctst.f
Work on file usr/src/usr.lib/libI77/test/fmtst.f
Work on file usr/src/usr.lib/libI77/test/pe.f

Synthesized-from: CSRG/cd1/4.3

diff --git a/usr/src/usr.lib/libI77/test/fmtst.f b/usr/src/usr.lib/libI77/test/fmtst.f
new file mode 100755 (executable)
index 0000000..7df05b5
--- /dev/null
+++ b/usr/src/usr.lib/libI77/test/fmtst.f
@@ -0,0 +1,6 @@
+       real x(8)
+       do 10 i=1,8
+   10  x(i) = i
+       write(*,1000) (i,x(i),i=1,8)
+ 1000  format (2("x(",i,")= ",f3.0," feet, "), "ta da")
+       end

diff --git a/usr/src/usr.lib/libI77/test/pe.f b/usr/src/usr.lib/libI77/test/pe.f
new file mode 100755 (executable)
index 0000000..bead475
--- /dev/null
+++ b/usr/src/usr.lib/libI77/test/pe.f
@@ -0,0 +1,4 @@
+       program pe
+       x = 123.456
+       write(*,'(3pe8.1,5x,0pe9.5e0)') x, 123456789e14
+       end

diff --git a/usr/src/usr.lib/libI77/test/trunctst.f b/usr/src/usr.lib/libI77/test/trunctst.f
new file mode 100755 (executable)
index 0000000..14634d2
--- /dev/null
+++ b/usr/src/usr.lib/libI77/test/trunctst.f
@@ -0,0 +1,19 @@
+       program trutst
+       integer ftell
+       external ftell
+
+       rewind 1
+       write(1,*) "This is line A."
+       write(1,*) "This is line B."
+       write(1,*) "This is line C."
+       write(1,*) "This is line D."
+       backspace 1
+       endfile 1
+       call system ("cat fort.1")
+       write(*,*) "---"
+       rewind 1
+       write(1,*) "This is line E."
+       write(1,*) "This is line F."
+       close(1)
+       call system ("cat fort.1")
+       end