2 ! { dg-options "-Wno-align-commons" }
6 ! Named common blocks need to be all of the same size
7 ! check that the compiler warns for those.
16 common /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" }
22 common /xx
/ a
, b
! { dg-warning "Named COMMON block 'xx' at \\(1\\) shall be of the same size as elsewhere \\(8 vs 24 bytes" }