blob: bc9602dd9f6f6812cab301661eff7995ed5b49e1 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-Wall" }
! PR fortran/49693 - this used to cause a spurious warning for the
! variable in the common block.
! Test case by Stephan Kramer.
module foo
implicit none
integer:: a, b
common a
end module foo