1! { dg-do compile } 2! PR20853 - No array size information for initializer. 3! PR24440 - patch for PR20853 caused a segfault at line 12. 4! Contributed by Joost VandeVondele <jv244@cam.ac.uk> 5MODULE TEST 6 TYPE init 7 INTEGER :: I=0 8 END TYPE init 9CONTAINS 10 SUBROUTINE try (A, B) ! { dg-error "cannot have a default initializer" } 11 TYPE(init), DIMENSION(*), INTENT(OUT) :: A 12 TYPE(init) , INTENT(OUT) :: B ! PR24440 => segfault 13 END SUBROUTINE try 14END MODULE TEST 15 16end 17