[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable

[official-gcc.git] / gcc / testsuite / gfortran.dg / contiguous_9.f90

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