blob: 5cda86ece1777190fd6468977d8d4eb58351685d (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
program p
type t
end type
class(t) :: x[*] ! { dg-error "must be dummy, allocatable or pointer" }
associate (y => x)
end associate
end
|