1! { dg-options "-std=f95 -fall-intrinsics" } 2! PR fortran/23994 3! 4! Test PROTECTED attribute. Within the module everything is allowed. 5! Outside (use-associated): For pointers, their association status 6! may not be changed. For nonpointers, their value may not be changed. 7! 8! Reject in Fortran 95 9 10module protmod 11 implicit none 12 integer :: a 13 integer, target :: at 14 integer, pointer :: ap 15 protected :: a, at, ap ! { dg-error "Fortran 2003: PROTECTED statement" } 16end module protmod 17 18module protmod2 19 implicit none 20 integer, protected :: a ! { dg-error "Fortran 2003: PROTECTED attribute" } 21 integer, protected, target :: at ! { dg-error "Fortran 2003: PROTECTED attribute" } 22 integer, protected, pointer :: ap ! { dg-error "Fortran 2003: PROTECTED attribute" } 23end module protmod2 24