blob: 3314e80ef9ddf85f0409e27f26c67ab82f317728 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|
