<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 Results
3.0000000