summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/common_16.f90
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