Subversion Repositories openrisc_me

! { 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 with INTENT attribute" }

  end subroutine

end program