1! { dg-do compile }
2!
3! PR 58026: Bad error recovery for allocatable component of undeclared type
4!
5! Contributed by Joost VandeVondele <Joost.VandeVondele@mat.ethz.ch>
6
7  type sysmtx_t
8     type(ext_complex_t), allocatable :: S(:)  ! { dg-error "has not been declared" }
9     class(some_type), allocatable :: X        ! { dg-error "has not been declared" }
10  end type
11
12end
13