Real :: a=1., b=2., c=3.
End Module
Program only_example
Use abc, only: b, x=>c
Integer :: a=17, c=42
Print *, a,b,c,x
End Program
Execution Results17 2.0000000 42 3.0000000
<Example Program>
| Module abc Real :: a=1., b=2., c=3. End Module Program only_example Use abc, only: b, x=>c Integer :: a=17, c=42 Print *, a,b,c,x End Program |
|
| Execution Results 17 2.0000000 42 3.0000000 |
|