blob: a1460efc371903190998e3311300e9854c1fbc9b [file] [log] [blame]
! { dg-do run }
!
! Check that PR83146 remains fixed.
!
! Contributed by Neil Carlson <neil.n.carlson@gmail.com>
!
type foo
integer n
end type
type bar
type(foo) array(2)
end type
type(bar) b
integer :: m=0
b%array(1)%n = 42
b%array(2)%n = 43
call assoc(1)
m = 1
call assoc(2)
contains
subroutine assoc (n)
integer :: n
associate (n_array => b%array%n)
select case (n_array(n))
case (42)
if (m .ne. 0) stop 1
case default
if (m .eq. 0) stop 2
end select
end associate
end subroutine assoc
end