Trailing-Edge
-
PDP-10 Archives
-
BB-P557A-BM_1983
-
uetp/lib/pas2f.for
There are no other files named pas2f.for in the archive.
C <PASCAL.UETP>PAS2F.FOR.5, 27-Dec-82 10:19:21, Edit by PROBINSON
C Remove booleans - Pascal and Fortran are too different
C LANG:<KOHLBRENNER.TST>PAS2F.FOR.2 19-Aug-81 09:12:30, Edit by KOHLBRENNER
C COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
integer int
real rel
double precision dob
int = 46
rel = 7.23
dob = 4.23456
call pastst(int,rel,dob)
if (int.eq.47) go to 20
type 10
10 format(' ?? error in passing integer')
20 if (rel.eq.8.23) go to 40
type 30
30 format(' ?? error in passing real')
40 if (dob.eq.4.23456) go to 60
type 50
50 format(' ?? error in passing double')
60 stop
end