File: assign.f

package info (click to toggle)
ftnchek 3.1.2-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 6,436 kB
  • ctags: 5,393
  • sloc: ansic: 24,609; fortran: 5,565; yacc: 3,682; sh: 2,518; makefile: 772; lisp: 264; f90: 94; perl: 76
file content (57 lines) | stat: -rw-r--r-- 993 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
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
      d = r4
      d = r8
      d = r16
      c = x
      c = z
      i = L4
      call sizeprop('hello',i2,r16)
      end