| ! { dg-do compile } | |
| ! { dg-options "-fcoarray=single" } | |
| ! PR fortran/107899 - ICE in resolve_deallocate_expr | |
| ! Contributed by G.Steinmetz | |
| program p | |
| type t | |
| end type | |
| class(t), target :: x[:] ! { dg-error "deferred shape" } | |
| if (allocated (x)) then ! { dg-error "must be ALLOCATABLE" } | |
| deallocate (x) ! { dg-error "must be ALLOCATABLE or a POINTER" } | |
| end if | |
| end |