blob: bc9602dd9f6f6812cab301661eff7995ed5b49e1 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { 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
|