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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/32906 - Parameter array ... cannot be automatic or assumed shape
!
! Testcase contributed by Florian Ladstaedter 
!
program test_program
  integer, parameter :: len = 1
  integer, parameter :: arr(max(len,1)) = (/1/)
 
  character(len=*), dimension (1), parameter             :: specStr = (/'string'/)
  double precision, dimension (size(specStr)), parameter :: specNum = (/99.0d0/)
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/32906 - Parameter array ... cannot be automatic or assumed shape`
4			`!`
5			`! Testcase contributed by Florian Ladstaedter`
6			`!`
7			`program test_program`
8			`integer, parameter :: len = 1`
9			`integer, parameter :: arr(max(len,1)) = (/1/)`
10
11			`character(len=*), dimension (1), parameter :: specStr = (/'string'/)`
12			`double precision, dimension (size(specStr)), parameter :: specNum = (/99.0d0/)`
13			`end`

Browse

Tools

Subversion Repositories openrisc

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