2 ! { dg-shouldfail "Invalid Fortran 2003 code" }
3 ! { dg-options "-std=f2003 -fall-intrinsics" }
6 ! Test PROTECTED attribute. Within the module everything is allowed.
7 ! Outside (use-associated): For pointers, their association status
8 ! may not be changed. For nonpointers, their value may not be changed.
10 ! Test of a invalid code
14 integer, Protected :: a
15 integer, protected, target :: at
16 integer, protected, pointer :: ap
22 a = 43 ! { dg-error "Assigning to PROTECTED variable" }
23 ap => null() ! { dg-error "Assigning to PROTECTED variable" }
24 nullify(ap) ! { dg-error "Assigning to PROTECTED variable" }
25 ap => at ! { dg-error "Assigning to PROTECTED variable" }
26 ap = 3 ! { dg-error "Assigning to PROTECTED variable" }
27 allocate(ap) ! { dg-error "Assigning to PROTECTED variable" }
28 ap = 73 ! { dg-error "Assigning to PROTECTED variable" }
29 call increment(a,at) ! { dg-error "use-associated with PROTECTED attribute" }
30 call pointer_assignments(ap) ! { dg-error "is use-associated with PROTECTED attribute" }
32 subroutine increment(a1,a3)
33 integer, intent(inout) :: a1, a3
36 end subroutine increment
37 subroutine pointer_assignments(p)
38 integer, pointer,intent (inout) :: p
40 end subroutine pointer_assignments
47 real, protected :: b ! { dg-error "only allowed in specification part of a module" }
51 ! { dg-final { cleanup-modules "protmod" } }