gcc/testsuite/gfortran.dg/protected_7.f90

   1 ! { dg-do compile }
   2 ! PR fortran/37504
   3 !
   4 module m
   5   implicit none
   6   integer, pointer, protected :: protected_pointer
   7   integer, target,  protected :: protected_target
   8 end module m
   9
  10 program p
  11   use m
  12   implicit none
  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
  20 end program p
  21
  22 ! { dg-final { cleanup-modules "m" } }