gcc/testsuite/gfortran.dg/pure_formal_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! Clean up, made when working on PR fortran/52864
   4 !
   5 ! Test some PURE and intent checks - related to pointers.
   6 module m
   7   type t
   8   end type t
   9   integer, pointer :: x
  10   class(t), pointer :: y
  11 end module m
  12
  13 pure subroutine foo()
  14   use m
  15   call bar(x) ! { dg-error "can not appear in a variable definition context" }
  16   call bar2(x) ! { dg-error "is local to a PURE procedure and has the POINTER attribute" }
  17   call bb(y) ! { dg-error "is local to a PURE procedure and has the POINTER attribute" }
  18 contains
  19   pure subroutine bar(x)
  20     integer, pointer, intent(inout) :: x
  21   end subroutine
  22   pure subroutine bar2(x)
  23     integer, pointer :: x
  24   end subroutine
  25   pure subroutine bb(x)
  26     class(t), pointer, intent(in) :: x
  27   end subroutine
  28 end subroutine