blob: 4826475ecf7fc274bc57f4d04a16e3058b83408b [file] [log] [blame]
! Testcase for using EQUIVALENCE with BIND(C)
! See PR fortran/39239
! { dg-do compile }
module m
use iso_c_binding
implicit none
integer(c_int) :: i1, i2
bind(C) :: i2
equivalence(i1,i2) ! { dg-error "EQUIVALENCE attribute conflicts with BIND" }
end module m