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