File: associate_02.f90

package info (click to toggle)
lfortran 0.59.0-3
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 56,736 kB
  • sloc: cpp: 168,052; f90: 74,272; python: 17,537; ansic: 7,705; yacc: 2,345; sh: 1,334; fortran: 895; makefile: 37; javascript: 15
file content (34 lines) | stat: -rw-r--r-- 489 bytes parent folder | download | duplicates (4) 
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
 
program associate_02
    implicit none

    integer, pointer :: p1
    real(8), pointer :: p2
    integer, target :: t1 = 2
    real(8), target :: t2 = 2.0_8
    complex(4), pointer :: p3
    complex(4), target :: t3 = (2.0_4, 3.0_4)

    p1 => t1
    p2 => t2
    p3 => t3
    p1 = 1
    p2 = 4.0_4

    print *, p1
    print *, t1

    t1 = p2 + p1

    print *, p1
    print *, t1

    t1 = 8

    print *, p1
    print *, t1

    p3 = 2*p3
    print *, p3
    print *, t3

end program