URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [common_5.f] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	694	jeremybenn	`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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [common_5.f] - Blame information for rev 801