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] - Blame information for rev 20

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	12	jlechner	`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`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [common_5.f] - Blame information for rev 20