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>
5common /z/ i
6contains
7pure 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 "variable definition context" }
13  test=i*j
14end function test
15end
16
17