! { dg-do compile } ! PR fortran/27997 ! ! Array constructor with typespec ! for derived types, failing conversion. PROGRAM test IMPLICIT NONE TYPE foo INTEGER :: i REAL :: x END TYPE foo TYPE bar LOGICAL :: logos END TYPE bar TYPE(foo), PARAMETER :: x = foo(42, 42.) WRITE (*,*) (/ TYPE(foo) :: x, foo(0, 1.), bar(.TRUE.) /) ! { dg-error "convert TYPE" } END PROGRAM test