blob: 7da6e9bd3dd52a6811fa79fc2bba96b56d184651 (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
program p
type t
end type
class(t) :: x(:) ! { dg-error "must be dummy, allocatable or pointer" }
type(t) :: y(size(x,1)) ! { dg-error "must be constant of INTEGER type" }
end
|