1! { dg-do compile } 2! PR fortran/18870 3! 4 program main 5 equivalence (a,c) 6 equivalence (b,c) 7 common /foo/ a 8 common /bar/ b ! { dg-error "equivalenced to another COMMON" } 9 c=3. 10 print *,a 11 print *,b 12 end 13 14 15