Real, Parameter :: pai = 3.14
Print *, pai*2
End
Execution Results6.2800002
<Example Program 1>
| Program parameter_example_1 Real, Parameter :: pai = 3.14 Print *, pai*2 End |
|
| Execution Results 6.2800002 |
|
<Example Program 2>
| Program parameter_example_2 Parameter (pai = 3.14) Print *, pai*2 End |
|
| Execution Results 6.2800002 |
|