1! { dg-do compile } 2! { dg-options "-std=f95" } 3! { dg-shouldfail "Fortran 2003 feature with -std=f95" } 4! 5! Pointer intent test 6! PR fortran/29624 7! 8! Fortran 2003 features in Fortran 95 9program test 10 implicit none 11 integer, pointer :: p 12 allocate(p) 13 p = 33 14 call a(p) ! { dg-error "Type mismatch in argument" } 15contains 16 subroutine a(p)! { dg-error "has no IMPLICIT type" } 17 integer, pointer,intent(in) :: p ! { dg-error "POINTER attribute with INTENT attribute" } 18 end subroutine 19end program 20