home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / assign.f < prev    next >
Text File  |  1994-11-06  |  953b  |  55 lines
  1. c  for testing propagation of type sizes
  2.       subroutine sizeprop(cadj,i,x)
  3.       character cadj*(*)
  4.       character c1, c5*5, c10*10
  5.       c1 = c5
  6.       c5 = c1
  7.       c5 = cadj
  8.       cadj = c5
  9.       c5 = 'hello'
  10.       c5 = 5Hhello
  11.       c5 = 11Hhello there
  12.       end
  13.       integer i,j,n
  14.       integer*4 m
  15.       parameter (n=6)
  16.       parameter (m=7)
  17.       real x,y
  18.       integer*2 i2
  19.       integer*4 i4
  20.       logical L
  21.       logical*2 L2
  22.       logical*4 L4
  23.       double precision d
  24.       real*4 r4
  25.       real*8 r8
  26.       complex c
  27.       real*16 r16
  28.       double complex z
  29.       complex*16 c16
  30.       complex*32 c32
  31.       i = m
  32.       i = n
  33.       i = 1
  34.       i = i2
  35.       i = i4
  36.       i4 = i
  37.       i4 = i2
  38.       i2 = i4
  39.       i = 4habcd
  40.       i = 8habcdefgh
  41.       x = r4
  42.       x = r8
  43.       x = c
  44.       d = x
  45.       x = d
  46.       z = d
  47.       d = z
  48.       r16 = d
  49.       r16 = r8
  50.       c = x
  51.       c = z
  52.       i = L4
  53.       call sizeprop('hello',i2,r16)
  54.       end
  55.