URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [common_5.f] - Rev 12
Compare with Previous | Blame | View Log
C { dg-do compile } 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