1! { dg-do compile }
2!
3! PR fortran/32906 - Parameter array ... cannot be automatic or assumed shape
4!
5! Testcase contributed by Florian Ladstaedter <flad AT gmx DOT at>
6!
7program 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/)
13end
14