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