3 ! PR20899 - Common block variables cannot be equivalenced in a pure procedure.
4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
7 pure integer function test(j)
8 integer, intent(in) :: j
11 equivalence(i,k) ! { dg-error "EQUIVALENCE object in the pure" }
12 k=1 ! { dg-error "in PURE procedure at" }