gcc/testsuite/gfortran.dg/equiv_constraint_bind_c.f90

   1 ! Testcase for using EQUIVALENCE with BIND(C)
   2 ! See PR fortran/39239
   3 ! { dg-do compile }
   4 module m
   5   use iso_c_binding
   6   implicit none
   7   integer(c_int) :: i1, i2
   8   bind(C) :: i2
   9   equivalence(i1,i2) ! { dg-error "EQUIVALENCE attribute conflicts with BIND" }
  10 end module m
  11