home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
fchek284.zip
/
test
/
assign.f
< prev
next >
Wrap
Text File
|
1994-11-06
|
953b
|
55 lines
c for testing propagation of type sizes
subroutine sizeprop(cadj,i,x)
character cadj*(*)
character c1, c5*5, c10*10
c1 = c5
c5 = c1
c5 = cadj
cadj = c5
c5 = 'hello'
c5 = 5Hhello
c5 = 11Hhello there
end
integer i,j,n
integer*4 m
parameter (n=6)
parameter (m=7)
real x,y
integer*2 i2
integer*4 i4
logical L
logical*2 L2
logical*4 L4
double precision d
real*4 r4
real*8 r8
complex c
real*16 r16
double complex z
complex*16 c16
complex*32 c32
i = m
i = n
i = 1
i = i2
i = i4
i4 = i
i4 = i2
i2 = i4
i = 4habcd
i = 8habcdefgh
x = r4
x = r8
x = c
d = x
x = d
z = d
d = z
r16 = d
r16 = r8
c = x
c = z
i = L4
call sizeprop('hello',i2,r16)
end