| ! { dg-do compile } | |
| ! { dg-options "-O0" } | |
| ! PR20899 - Common block variables cannot be equivalenced in a pure procedure. | |
| ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
| common /z/ i | |
| contains | |
| pure integer function test(j) | |
| integer, intent(in) :: j | |
| common /z/ i | |
| integer :: k | |
| equivalence(i,k) ! { dg-error "EQUIVALENCE object in the pure" } | |
| k=1 ! { dg-error "variable definition context" } | |
| test=i*j | |
| end function test | |
| end | |