gcc/testsuite/gfortran.dg/associate_39.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 86935: Bad locus in ASSOCIATE statement
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 implicit none
   8
   9 type :: t
  10   real :: r = 0.5
  11   integer :: i = 3
  12 end type
  13
  14 type(t) :: x
  15
  16 associate (r => x%r, &
  17            i => x%ii)   ! { dg-error "Invalid association target" }
  18
  19 end