1! RUN: %S/test_errors.sh %s %t %f18
2! Test SELECT TYPE and ASSOCIATE errors: C1103
3
4subroutine s1()
5  class(*),allocatable :: calc[:]
6  integer,save :: icoa[*]
7  !ERROR: Selector must not be a coindexed object
8  associate(sel=>icoa[2])
9  end associate
10  icoa = 2
11  allocate(integer::calc[*])
12  !ERROR: Selector must not be a coindexed object
13  select type(sel=>calc[2])
14  end select
15end subroutine
16