OSDN Git Service

d4b9614d6fb219c6c4af5fadff869f2f933078c9
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / common_5.f
1 C { dg-do compile }
2 C PR 20059
3 C Check that the warning for padding works correctly.
4       SUBROUTINE PLOTZ
5       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6       COMMON /CCPOOL/ RMIN,RMAX,ZMIN,ZMAX,IMIN,JMIN,IMAX,JMAX,NFLOP, ! { dg-warning "Padding" }
7      $ HTP
8 C
9         RETURN
10       END