回答編集履歴
1
追記
answer
CHANGED
@@ -16,4 +16,19 @@
|
|
16
16
|
printf("%d\n",foo()); // => 2 を出力
|
17
17
|
printf("%d\n",foo()); // => 3 を出力
|
18
18
|
}
|
19
|
+
```
|
20
|
+
|
21
|
+
現代の多くの言語と違って、fortranだと、特に指定しなくても実体は1つです。
|
22
|
+
```fortran
|
23
|
+
integer function foo() result(ret)
|
24
|
+
integer :: x = 0
|
25
|
+
x = x + 1
|
26
|
+
ret = x
|
27
|
+
end
|
28
|
+
|
29
|
+
integer :: foo
|
30
|
+
print *, foo() 1を出力
|
31
|
+
print *, foo() 2を出力
|
32
|
+
print *, foo() 3を出力
|
33
|
+
end
|
19
34
|
```
|