gcc/testsuite/gfortran.dg/common_5.f

   1 C { dg-do compile }
   2 C { dg-options "-pedantic-errors -mdalign" { target sh*-*-* } }
   3 C PR 20059
   4 C 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
   9 C
  10         RETURN
  11       END