|
|
1.1 root 1: altreturn
2: do_lio_ (&c_28, &c_22, , (long int) );
3: altreturn2
4: array
5: foo: needs prologue to set --x
6: (otherwise "x[10] = *y" should be "x[9] = *y")
7: MAIN__: "foo_ (&a, &a[3]);" should have "&a," changed
8: to "a" or "&a[0]"
9: ass
10: ass2
11: comment
12: comment2
13: comment3.f = variation on comment 2 containing */
14: in two Fortran comments; glad to see this changed to +/
15: complex1
16: "x = 1.5" should be "x.x = 1.5, x.y = 0.;"
17: const1
18: do_lio_ (&c_30, &c_31, , (long int) );
19: string constants missing
20: const2
21: do_fio_ (&c_31, i, (long int) );
22: string constants missing
23: data_impdo
24: "/* Local variables */" printed twice
25: values from data stmt missing
26: do
27: dot
28: "static double zero = 0.0;" missing
29: prologue missing (to set --x, --y).
30: local variable "dotprd" not declared
31: superfluous assignments to dim_4 and dim_8
32: no value returned
33: dot1
34: like dot; superfluous assignments to dim_4, offs_8, dim_12
35: entry
36: no goo_
37: exams
38: min(***), max(***)
39: expr1
40: from_stu
41: no s2_()
42: character assignments wrong
43: funcall
44: goto
45: if
46: F, T undefined
47: logical1
48: opt
49: opt2
50: par
51: par2
52: parameter
53: proc_param
54: Compiler error line 4 of proc_param.f: Impossible tag 0 in routine putx
55: proc_param2
56: "float *zap" should be "float (*zap)()"; same for zip.
57: subroutine
58: write_expr
59: could t_4 be staticly initialized?
60: write_impdo
61: do_lio_ (&c_16, &c_17, , (long int) );
62: some string constants missing
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.