gcc/testsuite/gfortran.dg/equiv_constraint_8.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O0" }
   3 ! PR20899 - Common block variables cannot be equivalenced in a pure procedure.
   4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   5 common /z/ i
   6 contains
   7 pure integer function test(j)
   8   integer, intent(in) :: j
   9   common /z/ i
  10   integer :: k
  11   equivalence(i,k) ! { dg-error "EQUIVALENCE object in the pure" }
  12   k=1 ! { dg-error "in PURE procedure at" }
  13   test=i*j
  14 end function test
  15 end
  16