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

Subversion Repositories openrisc_me

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

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_me

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