! { dg-do compile } | |
! { dg-options "-std=f2003" } | |
! | |
! PR fortran/40632 | |
! | |
! CONTIGUOUS compile-time tests | |
! | |
integer, pointer, contiguous :: a(:) ! { dg-error "Fortran 2008:" } | |
integer, pointer :: b(:) | |
contiguous :: b ! { dg-error "Fortran 2008:" } | |
end |