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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR 34980 - we got a segfault for calling shape
!            with a scalar.
program main
 integer :: n
 n = 5
 open(10,status="scratch")
 write (10,*) shape(n)
 close(10,status="delete")
end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 34980 - we got a segfault for calling shape`
3			`! with a scalar.`
4			`program main`
5			`integer :: n`
6			`n = 5`
7			`open(10,status="scratch")`
8			`write (10,*) shape(n)`
9			`close(10,status="delete")`
10			`end`
11

Browse

Tools

Subversion Repositories openrisc

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