Subversion Repositories openrisc

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

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

! PR fortran/23994

! PR fortran/23994

!

!

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

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

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

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

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

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

!

!

! Reject in Fortran 95

! Reject in Fortran 95

module protmod

module protmod

  implicit none

  implicit none

  integer          :: a

  integer          :: a

  integer, target  :: at

  integer, target  :: at

  integer, pointer :: ap

  integer, pointer :: ap

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

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

end module protmod

end module protmod

module protmod2

module protmod2

  implicit none

  implicit none

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

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

  integer, protected, target  :: at ! { 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" }

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

end module protmod2

end module protmod2