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