gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90

   1 ! PR fortran/16336 -- the two common blocks used to clash
   2 MODULE bar
   3 INTEGER :: I
   4 COMMON /X/I
   5 contains
   6 subroutine set_i()
   7 i = 5
   8 end subroutine set_i
   9 END MODULE bar
  10
  11 USE bar
  12 INTEGER :: J
  13 COMMON /X/J
  14 j = 1
  15 i = 2
  16 if (j.ne.i) call abort()
  17 if (j.ne.2) call abort()
  18 call set_i()
  19 if (j.ne.5) call abort()
  20 END