gcc/testsuite/gfortran.dg/common_16.f90


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