blob: 3314e80ef9ddf85f0409e27f26c67ab82f317728 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-pedantic -mdalign" { target sh*-*-* } }
!
! PR fortran/50273
!
subroutine test()
character :: a
integer :: b
character :: c
common /global_var/ a, b, c ! { dg-warning "Padding of 3 bytes required before 'b' in COMMON" }
print *, a, b, c
end subroutine test