! { dg-do compile } | |
! { dg-options "-std=f95" } | |
! { dg-shouldfail "Fortran 2003 feature with -std=f95" } | |
! | |
! Pointer intent test | |
! PR fortran/29624 | |
! | |
! Fortran 2003 features in Fortran 95 | |
program test | |
implicit none | |
integer, pointer :: p | |
allocate(p) | |
p = 33 | |
call a(p) ! { dg-error "Type mismatch in argument" } | |
contains | |
subroutine a(p)! { dg-error "has no IMPLICIT type" } | |
integer, pointer,intent(in) :: p ! { dg-error "POINTER attribute conflicts with INTENT attribute" } | |
end subroutine | |
end program |