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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-O" }
! PR 48352 - variable elimination in a DO loop caused segfaults.
! Test case contributed by Joost VandeVondele
program main
  INTEGER, DIMENSION(:), POINTER :: a
  DO I=1,MIN(SIZE(a),SIZE(a))
  ENDDO
END program main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O" }`
3			`! PR 48352 - variable elimination in a DO loop caused segfaults.`
4			`! Test case contributed by Joost VandeVondele`
5			`program main`
6			`INTEGER, DIMENSION(:), POINTER :: a`
7			`DO I=1,MIN(SIZE(a),SIZE(a))`
8			`ENDDO`
9			`END program main`

Browse

Tools

Subversion Repositories openrisc

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