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