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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [shape_1.f90] - Blame information for rev 831

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


! { dg-do compile }
! PR 13201 we used to not give an error in those cases
subroutine foo(n)
  integer, parameter :: a(n) = 1 ! { dg-error "cannot be automatic" "automatic shape" }
  integer, parameter :: z(:) = (/ 1,2,3 /) ! { dg-error "cannot be automatic" "assumed shape" }
end subroutine

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! PR 13201 we used to not give an error in those cases`
3			`subroutine foo(n)`
4			`integer, parameter :: a(n) = 1 ! { dg-error "cannot be automatic" "automatic shape" }`
5			`integer, parameter :: z(:) = (/ 1,2,3 /) ! { dg-error "cannot be automatic" "assumed shape" }`
6			`end subroutine`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [shape_1.f90] - Blame information for rev 831