1C { dg-do compile }
2C { dg-options "-pedantic-errors -mdalign" { target sh*-*-* } }
3C PR 20059
4C Check that the warning for padding works correctly.
5      SUBROUTINE PLOTZ
6      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
7      COMMON /CCPOOL/ RMIN,RMAX,ZMIN,ZMAX,IMIN,JMIN,IMAX,JMAX,NFLOP, ! { dg-warning "Padding" }
8     $ HTP
9C
10        RETURN
11      END
12