3 ! Contributed by Gerhard Steinmetz <gscfq at t-online dot de>
5 integer, parameter :: n(2) = [1,2]
7 character(:), allocatable
:: z
, zz
, zzz
8 character(:), allocatable
:: y
, yy
9 allocate (character(a
) :: z
) ! { dg-error "Scalar INTEGER expression" }
10 allocate (character(x
) :: zz
) ! { dg-error "Scalar INTEGER expression" }
11 allocate (character((1.0)) :: z
) ! { dg-error "Scalar INTEGER expression" }
12 allocate (character(y
) :: y
) ! { dg-error "Scalar INTEGER expression" }
13 allocate (character(n(1:2)) :: y
)! { dg-error "Scalar INTEGER expression" }