| ! { dg-do compile } | |
| ! { dg-options "-fcoarray=lib" } | |
| ! PR fortran/95881 - ICE in resolve_symbol, at fortran/resolve.c:15175 | |
| program p | |
| type t | |
| real, allocatable :: a[:] | |
| end type t | |
| class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" } | |
| allocate (x%a[*]) | |
| end |