| ! PR fortran/16336 -- the two common blocks used to clash | |
| MODULE bar | |
| INTEGER :: I | |
| COMMON /X/I | |
| contains | |
| subroutine set_i() | |
| i = 5 | |
| end subroutine set_i | |
| END MODULE bar | |
| USE bar | |
| INTEGER :: J | |
| COMMON /X/J | |
| j = 1 | |
| i = 2 | |
| if (j.ne.i) call abort() | |
| if (j.ne.2) call abort() | |
| call set_i() | |
| if (j.ne.5) call abort() | |
| END |