15 lines
253 B
FortranFixed
15 lines
253 B
FortranFixed
|
! { 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
|
||
|
|
||
|
|