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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_colon.f90] - Blame information for rev 193

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


! { dg-do run }
! PR31395 Colon edit descriptor is ignored.
! Test case derived from PR. Prepared by Jerry DeLisle
! 
PROGRAM test
    INTEGER :: i = 1
    character(30) :: astring
    WRITE(astring, 10) i
 10 FORMAT('i =',I2:' this should not print')
    if (astring.ne."i = 1") call abort
    write(astring, 20) i, i
 20 format('i =',I2:' this should print',I2)
    if (astring.ne."i = 1 this should print 1") call abort
END PROGRAM test

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR31395 Colon edit descriptor is ignored.`
3			`! Test case derived from PR. Prepared by Jerry DeLisle`
4			`!`
5			`PROGRAM test`
6			`INTEGER :: i = 1`
7			`character(30) :: astring`
8			`WRITE(astring, 10) i`
9			`10 FORMAT('i =',I2:' this should not print')`
10			`if (astring.ne."i = 1") call abort`
11			`write(astring, 20) i, i`
12			`20 format('i =',I2:' this should print',I2)`
13			`if (astring.ne."i = 1 this should print 1") call abort`
14			`END PROGRAM test`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_colon.f90] - Blame information for rev 193