teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2015/10/10 00:14

投稿

otn
otn

スコア86349

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
  ```