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/] [write_check.f90] - Blame information for rev 437

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


! { dg-do run }
! { dg-shouldfail "Compile-time specifier checking" }
! Check keyword checking for specifiers
! PR fortran/29452
program test
  implicit none
  character(len=5) :: str
  str = 'yes'
  write(*,'(a)',advance=str) ''
  str = 'no'
  write(*,'(a)',advance=str) ''
  str = 'NOT'
  write(*,'(a)',advance=str) ''
end program test
! { dg-output "At line 13 of file.*" }
! { dg-output "Bad ADVANCE parameter in data transfer statement" }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-shouldfail "Compile-time specifier checking" }`
3			`! Check keyword checking for specifiers`
4			`! PR fortran/29452`
5			`program test`
6			`implicit none`
7			`character(len=5) :: str`
8			`str = 'yes'`
9			`write(*,'(a)',advance=str) ''`
10			`str = 'no'`
11			`write(*,'(a)',advance=str) ''`
12			`str = 'NOT'`
13			`write(*,'(a)',advance=str) ''`
14			`end program test`
15			`! { dg-output "At line 13 of file.*" }`
16			`! { dg-output "Bad ADVANCE parameter in data transfer statement" }`

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/] [write_check.f90] - Blame information for rev 437