1! { dg-do compile } 2! { dg-options "-pedantic -mdalign" { target sh*-*-* } } 3! 4! PR fortran/50273 5! 6subroutine test() 7 character :: a 8 integer :: b 9 character :: c 10 common /global_var/ a, b, c ! { dg-warning "Padding of 3 bytes required before 'b' in COMMON" } 11 print *, a, b, c 12end subroutine test 13