gcc/testsuite/gfortran.dg/pr79886.f90

! PR fortran/79886
! { dg-do compile }
! { dg-options "-Wpadded" }

subroutine pr79886
  type :: foo
    integer (kind=1) :: a
    integer (kind=8) :: b	! { dg-warning "padding struct to align" }
    integer (kind=1) :: c
    integer (kind=8) :: d	! { dg-warning "padding struct to align" }
  end type
  type (foo) :: f
  f%a = 1
  f%b = 2
  f%c = 3
  f%d = 4
end subroutine