| program common1 | |
| implicit none | |
| common /block/ aaa, bbb, ccc | |
| integer :: aaa | |
| real :: bbb | |
| double precision :: ccc | |
| aaa = 5 | |
| bbb = 4.6 | |
| ccc = 2.345 | |
| print *, aaa, bbb, ccc | |
| call helper | |
| print *, aaa, bbb, ccc | |
| end program common1 | |
| subroutine helper | |
| implicit none | |
| common /block/ aaa, bbb | |
| integer :: aaa | |
| real :: bbb | |
| aaa = 50 | |
| bbb = 40.6 | |
| end subroutine helper |