回答編集履歴
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
|
```
|