Sun Microsystems SunSoft Pascal 4.0 User Manual page 222

8
The FORTRAN subroutine,
SimVal.f
198
Simple Types
With external fortran, the procedure name in the procedure statement
and in the call must be in lowercase, with no underscore (_).
subroutine
logical*1
character
integer*4
double precision d
integer*2
integer*4
reply = 0
if ( t
if ( .not. f
if ( c .eq. 'z' ) reply = reply + 64
if ( i .eq. 9
if ( d .eq. 9.9 ) reply = reply + 4096
if ( s .eq. 9
return
end
Pascal 4.0 User's Guide
SimVal( t, f, c, i, d, s, reply )
t, f
c
i
s
reply
) reply = reply + 1
) reply = reply + 8
) reply = reply + 512
) reply = reply + 32768