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