Include 'type'
a = 1.
b = 2.
Call sub(a,b,c)
Print *, c
End
Subroutine sub(a,b,c)
Include 'type'
c = a + b
End
File 'type' contentsReal a,b,c
Execution Results3.0000000
<Example Program>
| Program include_example Include 'type' a = 1. b = 2. Call sub(a,b,c) Print *, c End Subroutine sub(a,b,c) Include 'type' c = a + b End |
|
| File 'type' contents Real a,b,c Execution Results3.0000000 |
|