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