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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [string_5.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
program test
 
  ! PR fortran/48876 - this used to segfault.
  ! Test case contributed by mhp77 (a) gmx.at.
  character ::  string =  "string"( : -1 )
 
  ! PR fortran/50409
  character v(3)
  v = (/ ('123'(i:1), i = 3, 1, -1) /)
  print *, v
 
end program test
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`program test`
3
4			`! PR fortran/48876 - this used to segfault.`
5			`! Test case contributed by mhp77 (a) gmx.at.`
6			`character :: string = "string"( : -1 )`
7
8			`! PR fortran/50409`
9			`character v(3)`
10			`v = (/ ('123'(i:1), i = 3, 1, -1) /)`
11			`print *, v`
12
13			`end program test`
14

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [string_5.f90] - Blame information for rev 694