6 integer, pointer, protected :: protected_pointer
7 integer, target, protected :: protected_target
13 integer, pointer :: unprotected_pointer
14 ! The next two lines should be rejected; see PR 37513 why
15 ! we get such a strange error message.
16 protected_pointer => unprotected_pointer ! { dg-error "only allowed in specification part" }
17 protected_pointer = unprotected_pointer ! { dg-error "only allowed in specification part" }
18 unprotected_pointer => protected_target ! { dg-error "target has PROTECTED attribute" }
19 unprotected_pointer => protected_pointer ! OK
22 ! { dg-final { cleanup-modules "m" } }