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