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