rt_gccstream/gcc/testsuite/gfortran.dg/common_equivalence_3.f

15 lines
253 B
Fortran

! { dg-do compile }
! PR fortran/18870
!
program main
equivalence (a,c)
equivalence (b,c)
common /foo/ a
common /bar/ b ! { dg-error "equivalenced to another COMMON" }
c=3.
print *,a
print *,b
end