blob: c22f343778d8b0c3a560f28e7de3b0dd41a41e1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
!
! PR fortran/32906 - Parameter array ... cannot be automatic or assumed shape
!
! Testcase contributed by Florian Ladstaedter <flad AT gmx DOT at>
!
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
|
