URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [open-options-blanks.f] - Blame information for rev 437

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


! { dg-do run }
! { dg-options "-std=legacy" }
!
! PR 20163, first half:  Trailing blanks on an option to
!                        open used to cause an error
      CHARACTER*8 ST
      ST = 'SCRATCH '
      OPEN(UNIT=10,STATUS=ST)
      END

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=legacy" }`
3			`!`
4			`! PR 20163, first half: Trailing blanks on an option to`
5			`! open used to cause an error`
6			`CHARACTER*8 ST`
7			`ST = 'SCRATCH '`
8			`OPEN(UNIT=10,STATUS=ST)`
9			`END`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [open-options-blanks.f] - Blame information for rev 437