1! { dg-do compile }
2! Test for PR19925
3!
4program pr19925
5 implicit none
6 integer j
7 integer, parameter :: n = 100000
8 integer, parameter :: i(n)=(/(j,j=1,n)/) ! { dg-error "number of elements" }
9 print *, i(5) ! { dg-error "has no IMPLICIT type" }
10end program pr19925
11