equiv_constraint_6.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 9 行

! { dg-do compile }
! PR16404 test 3 and PR20835 - Target cannot be equivalence object.
! Contributed by Joost VandeVondele <[e-mail]>
  REAL :: A
  REAL, TARGET :: B
  EQUIVALENCE(A,B) ! { dg-error "conflicts with TARGET attribute" }
END