Subversion Repositories openrisc

! { dg-options "-std=f95 -fall-intrinsics" }

! PR fortran/23994

!

! Test PROTECTED attribute. Within the module everything is allowed.

! Outside (use-associated): For pointers, their association status

! may not be changed. For nonpointers, their value may not be changed.

!

! Reject in Fortran 95

module protmod

  implicit none

  integer          :: a

  integer, target  :: at

  integer, pointer :: ap

  protected :: a, at, ap ! { dg-error "Fortran 2003: PROTECTED statement" }

end module protmod

module protmod2

  implicit none

  integer, protected          :: a  ! { dg-error "Fortran 2003: PROTECTED attribute" }

  integer, protected, target  :: at ! { dg-error "Fortran 2003: PROTECTED attribute" }

  integer, protected, pointer :: ap ! { dg-error "Fortran 2003: PROTECTED attribute" }

end module protmod2