1! { dg-do compile }
2! PR fortran/27997
3!
4! Array constructor with typespec
5! for derived types, failing conversion.
6
7PROGRAM test
8  IMPLICIT NONE
9
10  TYPE foo
11    INTEGER :: i
12    REAL :: x
13  END TYPE foo
14
15  TYPE bar
16    LOGICAL :: logos
17  END TYPE bar
18
19  TYPE(foo), PARAMETER :: x = foo(42, 42.)
20
21  WRITE (*,*) (/ foo :: x, foo(0, 1.), bar(.TRUE.) /) ! { dg-error "convert TYPE" }
22END PROGRAM test
23