1! { dg-do compile }
2! { dg-options "-Wno-align-commons" }
3!
4! PR fortran/45044
5!
6! Named common blocks need to be all of the same size
7! check that the compiler warns for those.
8
9module m
10  common /xx/ a
11end module m
12
13subroutine two()
14integer :: a, b, c
15real(8) :: y
16common /xx/ a, b, c, y ! { dg-warning "Named COMMON block 'xx' at \\(1\\) shall be of the same size as elsewhere \\(24 vs 4 bytes" }
17end
18
19
20subroutine one()
21integer :: a, b
22common /xx/ a, b ! { dg-warning "Named COMMON block 'xx' at \\(1\\) shall be of the same size as elsewhere \\(8 vs 24 bytes" }
23end
24
25call two()
26end
27