blob: dec63710d4a40997b6d17e59960d27ef982eb5a8 [file] [log] [blame]
program contiguous_pointer
type t
end type t
type s
class(t), dimension(:), contiguous, pointer :: x ! OK
class(t), contiguous, allocatable :: y ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer" }
class(t), contiguous, pointer :: z ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer" }
end type s
end program contiguous_pointer