blob: 12d353353bc3af4d9be360da703a5a2d85bca3e7 [file] [log] [blame]
! { dg-do compile }
! { dg-options -std=gnu }
Subroutine RestoreR8Run()
Implicit NONE
Integer ISTORE
Real XSTORE
character CSTORE(8)
data cstore/8*' '/
data istore/0/
EQUIVALENCE (CSTORE(1),XSTORE,ISTORE) ! { dg-error "Overlapping unequal" }
end