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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
c If you need a function, put it into the module below and remove the same
c number of lines below the module to keep the rest of the lines in this file
c intact.
module continue_compilation_1_mod
CONTAINS
LOGICAL FUNCTION f(x)
INTEGER, INTENT(IN), OPTIONAL :: x
f = PRESENT(x)
END FUNCTION f
end module
c Only put declarations and statements here, no subroutines (those go above).
PROGRAM continue_compilation_ff
INTEGER :: init_x = 1
INTEGER, POINTER :: y_1
INTEGER(2), POINTER :: y_2(:)
INTEGER :: shape(2, 2)
INTEGER, PARAMETER :: x = 2
REAL :: circleArea
COMPLEX :: a
INTEGER :: val
CHARACTER(1) :: x_2
INTEGER :: i
INTEGER :: a_2(3)
INTEGER :: size_a
INTEGER :: a_3(3)
INTEGER :: size_a_2
INTEGER :: kindvar = 4
REAL(8), ALLOCATABLE :: x_3(:)
REAL :: y_3
INTEGER, PARAMETER :: Nx = 600, Ny = 450
INTEGER :: i_1, j, image(Nx, Ny)
INTEGER :: i_2, j_1
INTEGER :: i_3
COMPLEX :: a_4
COMPLEX :: a_5
REAL :: y_4
INTEGER :: I J
c Use the space above to insert new declarations, and remove the line, so
c that the lines below do not shift, to keep the diff minimal.
c Only put statements below. If you need to call a function, put it into a
c module above.
CLOSE(UNIT=200)
I == 10
J = 20..5
PRINT *, "Value of I is" I
CHARACTER*10 STR = 'Hello '
WRITE(*,10 FORMAT(A))
A = B + * C
INTEGER K L M = 5
READ *, N 5
REAL X Y Z 10.5
COMPLEX C = (1.0,2.0
I === 10
J = .20E
REAL*8 A = 1.23.45
INTEGER*4 VAR/5/
INTEGER*4 VAR/5/
EQUIVALENCE (X Y)
x_2 = 'u'
i = 10
IF (i > ICHAR(x_2)) THEN
END IF
size_a = SIZE(a_2, DIM=1)
c a_5 = CMPLX(1)
IF I .EQ. 10 THEN PRINT *, "Ten"
CALL FUNC( 5, 6,
END PROGRAM continue_compilation_ff
|
