+
−! { dg-do compile }
+
−!
+
−! PR 86935: Bad locus in ASSOCIATE statement
+
−!
+
−! Contributed by Janus Weil <janus@gcc.gnu.org>
+
−
+
−implicit none
+
−
+
−type :: t
+
−  real :: r = 0.5
+
−  integer :: i = 3
+
−end type
+
−
+
−type(t) :: x
+
−
+
−associate (r => x%r, &
+
−           i => x%ii)   ! { dg-error "Invalid association target" }
+
−
+
−end