20 lines
501 B
Fortran
20 lines
501 B
Fortran
! { 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
|