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

Subversion Repositories openrisc

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

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


c { dg-do compile }
C      Extracted from PR fortran/8485
       PARAMETER (PPMULT = 1.0E5)
       INTEGER(kind=8) NWRONG
       PARAMETER (NWRONG = 8)
       PARAMETER (DDMULT = PPMULT * NWRONG)
       PRINT 10, DDMULT
10     FORMAT (F10.3)
       END

Line No.	Rev	Author	Line
1	694	jeremybenn	`c { dg-do compile }`
2			`C Extracted from PR fortran/8485`
3			`PARAMETER (PPMULT = 1.0E5)`
4			`INTEGER(kind=8) NWRONG`
5			`PARAMETER (NWRONG = 8)`
6			`PARAMETER (DDMULT = PPMULT * NWRONG)`
7			`PRINT 10, DDMULT`
8			`10 FORMAT (F10.3)`
9			`END`

Browse

Tools

Subversion Repositories openrisc

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